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ETUDES POUR ZX81 


PRESENTATION 


Le ZX81 ouvre aujourd'hui une nouvelle ère dans le domaine 
de la micro-informatique. Pourtant, d'un prix modique, celui- 
ci apporte de nombreuses possibilités d'utilisation qu'il 
s'agissent de jeux, de gestion ou tout simplement de programmes 
pratiques. 

C'est pour en faire la démonstration que l'auteur a choisi 
pour ce livre des domaines d'application très diversifiés. La 
priorité est toutefois donnée aux jeux, liant ainsi l'utile à 
l'agréable. 

Cependant, ce livre n'est pas seulement une liste exhaustive 
de programmes mais plutôt un ensemble d' "Etudes" de cas pour 
lesquels vous trouverez donc dans chaque chapitre une présen¬ 
tation et des exemples de ce que l'on obtient sur l'écran. 

La structure générale des programmes est présentée sous for¬ 
me d'un ou plusieurs organigrammes détaillés, parfois accompa¬ 
gné d'un organigramme général pour une meilleure vue d'ensem¬ 
ble. 

Chaque ligne est ensuite 
les astuces utilisées. Le 
tification de variables ce 
plus facile. 

Toutes ces explications sont données dans un but essentielle¬ 
ment pédagogique pour construire vous-mêmes vos applications 
personnelles. 

Mais sans plus attendre, passons aux "choses sérieuses". 


abondamment commentée, expliquant 
tout est associé à un tableau d'iden- 
qui permet une recherche ultérieure 
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ETUDES POUR ZX81 


Avertissement 


Vue la complexité des programmes de ce livre, il est néces¬ 
saire de posséder l'extension 16 ko du ZX81, la version de 
base n'ayant qu'un petit ko de mémoire vive. 

Seul le programme "SACRO-LETTRES" nécessite une imprimante. 
Tous les autres programmes peuvent s'en passer. Mais, si vous 
en avez une, il sera particulièrement intéressant de l'utili¬ 
ser pour des copies d'écran dans les programmes BIORYTHME, 
CALENDRIER, GRAPHIQUES, GESTION DE FICHIER, TRICOT et FICHIER 
TELEPHONE. 

Dès que les programmes sont entrés dans le ZX81, sauvez-les 
sur votre magnétophone. Pour les programmes très longs, il est 
conseillé d'effectuer une première sauvegarde au milieu de la 
frappe du programme. N'attendez pas qu'il soit entièrement 
entré et testé... Une coupure de courant est si vite arrivée ! 

Méfiez-vous ! L'instruction FAST coupe complètement le signal 
vidéo de votre téléviseur, laissant, pendant quelques instants, 
l'impression que votre ZX81 ne marche plus. Il est toujours 
possible d'arrêter le programme en cours par la touche BREAK 
si vous pensez qu'il est arrivé une catastrophe et avant 
d'effectuer une manoeuvre qui perdrait définitivement votre 
programme. 

Pour recopier les lignes comportant des caractères graphiques 
dont le découpage ne vous paraîtrait pas clair, reportez-vous 
aux exemples donnés avec chaque listing. Aidez-vous aussi des 
lignes précédentes pour repérer chaque caractère, en comparant 
avec le nombre et la position des caractères de ces autres 
lignes. 
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Jack-Pot 


Voilà un jeu qui peut paraître tout d'abord passif puisque 
le joueur intervient très peu ; mais attention pour le joueur 
acharné : il risque d'en perdre le sommeil! 

Après avoir tapé RUN, le JACK-POT se dessine, puis les combi¬ 
naisons gagnantes, votre capital initial de 10,00 F., et c'est 
parti : la manette s'abaisse, les roulettes tournent. 

Quand elles s'immobilisent, si vous n'avez rien gagné, votre 
capital se décrémente de 0,20 F. Il suffit d'appuyer sur 
n'importe quelle touche pour relancer le jeu. 

Quand une combinaison gagnante apparaît à l'arrêt des rou¬ 
lettes, votre gain s'affiche en clignotant en bas du JACK-POT 
et votre capital augmente. 

Patience, patience, ce JACK-POT, digne de ses ancêtres, peut 
vous prendre beaucoup de temps... 
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RCM JOCK POT 

REM- 

DIM CS(8,1) 
DIM TT3) 

DIM D(3) 
l_ET C»10 
LET CS (1) ■' 
LET CS(S) ' 




LET Cl 1(3) 

LET Cil (4) 

LET Cil (5) 

LET Cil (6) 

LET Cil (7) 

LET ci(8) 

REM- 

REM DESSIN DE LR MACHINE 
PAINT TAB (10); 

FOR I-l TO 13 
PR INT 
NEXT I 

FOR I-l TO 17 
PRINT RT 6,7 + 1.; •• 

PAINT RT 14,7+1; 

PAINT RT 31,6+1; 

NE>fT î _ 

PRINT RT 31,33; 

PRINT RT 31,34; 

GOSUB 900 
FOR I-l TO 7 
PRINT RT 6+1,8;" 

PRINT RT 6+1,34; 

PRINT RT 14+1,8; 

PRINT RT 14+1,34. , 

PRINT RT -1+1,10;" 

PRINT RT -1+1,33;" 

NEXT I 

PRINT RT 3,18;“ 

PRINT RT 3,18;" 

PRINT RT 4,18;' 

PRINT RT 3,13;' 

PRINT RT 4,13;' 

PRINT RT 1,18;*' 

FOR 1*1 TO 4 
PRINT RT 16 + 1,11; “I 

REM PRINT RT 16+1,19; 

REM PRINT RT 16+1,14; 




NEXT I 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PAINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 


17,14; “! 

1 , 0 ; 

3,0; 

3,0; 

4,0; 

s,0; 

6 , 0 ; 

11,13;" 
16,36; 
17,35; •• 
18,35;" 
15,0; ‘'C 
17,1;C;" 


l?èal0F' 

5F' 

+ +» 3F' 
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659 RCM - 

650 REM JEU 

651 FOR I»1 TO 3 

6Sa l_ET D<I>=INT (RND«8) -fl 
6S3 LET T<I)»INT ( (RNDtaO)-fS) 
664. NEXT I 

665 GD6UB 600 

666 GOSUB 900 
700 FOR I-l TO 3 

703 IF T<1)«!0 THEN goto 770 
705 LET T<I)*T(I)-1 
715 LET DtDaDtDf-l 
7aO IF DtI)-9 TMEN LET D(I>-1 
730 PRINT RT 10 , ISf-( 1*8) ; C« (D ( I 
) ) 


770 

780 
3) >0 

781 
785 
790 

798 

799 

800 
810 
880 
830 
84-0 
850 
880 
890 
900 
910 
920 
930 
94.0 
950 
980 
990 

1OO0 

1005 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

lllO 

1120 

1130 

1140 

1148 

1149 

1150 
1160 
1170 
1180 
1190 


NEXT I 

IF T<l)-0 «ND Tf2>«0 «ND Tf 

TMEN GOTO 785 

GOTO 700 

QOSUB 1000 

GOTO 861 

REM- 

REM DESCENTE DE L« POIGNEE 
FOR I»5 TO 13 
PRINT «T 1,25;" 

PRINT «T 1+1,25;“B" 

PRINT «T 1+2,25; 

NEXT I 
RETURN 

REM- 

REM MONTEE DE LA POIGNEE 
FOR I«13 TO 5 STEP -1 
PRINT RT 1,25; 

PRINT RT I + l,25;^NBi ” 

PRINT RT 1+2,25; "T" 

NEXT I 
RETURN 

REM- 

REM TOTAL DES GAINS 
LET C»C-.a0 
LET CRP»C 

LET DbD( 1)*100+D(2)*10+DC3) 
LET Dl-D(1)*100+D(3) 

IF D-333 THEN LET C>C+20 
XF DaCee THEN LET CaC+lO 
IF Daaaa then let c-c+ 5 
IF D-535 THEN LET CaC+4 
IF Dla707 THEN LET CaC+3 
IF Dl-lOl THEN LET C-C+3 
XF Dl-808 THEN LET CaC+2 
IF Dl«303 TMEN LET C-C+l 
PRINT RT 17,0;C;" 

IF OCRP THEN GOTO 1150, 

IF INKEY*»"” TMEN GOTO 1130 
RETURN 

REM- 

REM AFFICHAGE DES GAINS 
LET CRP-C-CRP 

PRINT RT 19,15; "ipi"_ 

IF INKEY*<>*" TMENRETURN 
PRINT RT 19,15;CAP;"F" 

GOTO 1160 
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ETUDES POUR ZX81 


LE PROGRAMME 


Lignes 5 à 17 

On déclare un tableau C$ (8,1) contenant les symboles du 
JACK-POT. 

Lignes 19 à $$6 

Le dessin de la machine est entièrement élaboré entre ces 
lignes, excepté la poignée qui est déterminée dans le sous- 
programme en 880. 

Lignes 659 à 790 

Le jeu entier est défini dans cette partie. Deux tableaux y 
sont établis : 

- D() donne le symbole de départ à afficher. Les symboles 
suivants apparaissent dans l'ordre donné aux lignes 5 à 17. 

- T() donne le temps, c'est-à-dire le nombre de symboles qui 
vont défiler sur la machine. 

Dès que ces deux tableaux sont définis, on manoeuvre la 
poignée en utilisant les sous-programmes en 800 et 900 (respec¬ 
tivement descente et montée), puis on affiche les 3 symboles 
à partir de D() pour un temps T(), donc (C$(D(I))). 

Lignes 1000 à 1140 

Total des gains : 

- On commence par décrémenter le capital C ; puis, on place 
dans CAP le capital restant. 

- En additionnant D(l) à D(3), on obtient un chiffre qui sert 
de comparaison avec les solutions gagnantes du JACK-POT 
(variable D). La variable DI ne prend en considération que 
les deux extrémités d'une combinaison qui ne compte que 
deux symboles gagnants. 

- On compare D et DI aux solutions gagnantes et on incrémente 
le capital (variable C). Quand C est supérieur à CAP, on 
gagne quelque chose. 

- On va alors à la ligne 1150 pour afficher le montant des 
gains ; sinon, on retourne à un nouveau jeu. 

Lignes 1149 à 1190 

On affiche successivement le gain et un rectangle gris, ce 
qui donne un effet de clignotement ; ceci tant que l'on 
n'appuie pas sur une touche. 
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IB 


Coptf'al 


Tfiet-fRO 

IB 


ConHenI' les signes du . fot 


-1 

IB 

IIH 

Capl^û( Qt/artl" tohali'sah'on des 



I 

I 

I 

I 

I 

I 

I 

II 
II 
I 

I 

I 

I 

I 

I 

I 
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Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^^Editions du P.S.I. 
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Saute mouton 


Voilà en face de vous, à gauche, trois moutons maigres dans 
leur bergerie et, à droite, trois moutons gras dans le pâtura¬ 
ge. 

Comment faire revenir les moutons gras dans la bergerie et 
faire arriver les moutons maigres au pâturage ? 

Les moutons ne peuvent sauter gu'un seul autre mouton à la 
fois et ne peuvent reculer. 

Vous avez essayé et vous êtes blogue ? Alors tapez sur zéro 
et recommencez ! 


17 




L8 



ETUDES POSE ZX81 



19 








ETUDES POUR ZI81 


10 REM SnUTE MOUTON 
30 DIM K 17) 

30 DIM 0*13,4.,4.) 

4.0 PRINT _ 

50 PRINT TOB 10;"fla 

70 PRINT 

11 PRINT “ ■ t^nl-WT-yW 


l-iTRB aa; 


100 LET 0*<1,1)="J ■ 

110 LET O* (l,a) s" 

130 LET 0$(1,3)>" Pf •' 

130 LET 0«(1,4.)>:" |{| •• 

300 LET R* ta, 1) =" C . > •• 

310 LET O* (a,a) s" 

330 LET O* (8,3)-'' " 

330 LET O* (8,4.)-'' m" 

340 LET L=4 ‘ T 

345 REM - 

346 REM RFFICHOGE JEU 

350 FOR Is=a TO 30 _ 

360 PRINT RT 13,I,-Ji” 

370 PRINT RT 6,I;''B^ 

360 NEXT I 

390 FOR X=1 TO 7 

300 PRINT RT 14,X«4;CHR» {X4-1S6 

310 LET C=1 

330 IF X=4 THEN LET 0=3 
330 IF X>4 THEN LET 0=3 
340 GOSUB 1000 
350 LET K(X) =C 
360 NEXT X 

370 REM--- 

375 REM JEU 

380 PRINT RT 31,0;" UOU5 BOUGEZ 
QUEL MOUTON ?" 

390 INPUT P 

400 IF P=0 THEN GOTO 740 
410 IF P>7 OR P<1 THEN GOTO 380 
430 IF L-a>P OR L+a<P THEN GOTO 
800 

430 IF K(P)*1 RND L<P THEN GOTO 
800 

440 IF K(P)=a RND L>P THEN GOTO 
800 

450 IF K(P)«3 THEN GOTO 800 
460 IF K(L)<>3 THEN GOTO 800 
470 LET K(L)=K(P) 

480 LET K CP) =3 
490 LETT 0=3 
500 LET X=P 
510 GOSUB 1000 
530 LET OsKCL) 

530 LET X=L 
540 GOSUB lOOO 
550 LET L=P 

560 IF KCDsa RND K CS) =8 RND KC 
3)=a RND K(4)=3 THEN GOTO 700 
570 GOTO 380 

600 REM - 

610 REM FIN 

700 FOR 1=1 TO ISO 

710 PRINT RT 18,6;“UOUS RUEZ TR 
OUUE ..." 

730 PRI^ RT 18,6;” 

730 NEXT 1 
740 OLS 
750 RUN 

730 REM - 

790 REH MESSRGE ERREUR 
800 FOR 1=1 TO 40 

810 PRINT RT 18,11;"(IMPOSSIBLE 

830 PRINT RT 18,11," 

830 NEXT I 
840 GOTO 380 

980 REM - 

990 REM DEPLRCEMENT MOUTON 
100O FOR Y=1 TO 4 

1010 PRINT RT Y+8,a+ tX-1) *4;fl* (C 

,Y) 

1030 NEXT Y 
1030 RETURN 
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LE PROGRAMME 


Lignes 20 à 240 

Après déclaration du tableau A$, on y place les moutons 
maigres et gras. 

La variable L est égale à 4 en ligne 240, ce qui correspond 
au numéro de la case libre au départ. 

Lignes 250 â 360 

Ces lignes dessinent, sur l'écran, le jeu tel qu'il apparaît 
dans les exemples. On utilise pour cela le sous-programme à 
la ligne 1000 qui dessine les moutons. 

Lignes 380 à 570 

On entre dans la variable P le numéro du mouton à déplacer. 
Si ce nombre est erroné (égal à 0, inférieur à 1 ou supérieur 
à 7), il n'est pas accepté, mais le programme n'envoie pas de 
message d'erreur. 

Par contre, si la case libre (variable) est éloignée de plus 
de 2 cases, les lignes 800 à 840 affichent un message d'erreur 
de même, si le mouton à déplacer veut reculer. 

Quand la variable P est testée, on utilise le sous-programme 
en ligne 1000 pour déplacer le mouton sur l'écran. 

On teste si les moutons sont bien placés avant d'aller au 
programme de fin de jeu. 

Dans le cas contraire, on boucle sur la ligne 380 pour un 
nouveau déplacement de mouton. 

Lignes 700 à 750 

Dans le cas d'une erreur de déplacement, on affiche le 
message "IMPOSSIBLE" 40 fois avant de retourner en ligne 380. 


SOUS-PROGRAMME 
Lignes 1000 à 1030 

Ce sous-programme dessine le mouton pointé par la variable C 
à la position pointée par X. 

Rappelons que C=1 correspond aux moutons maigres, C=2 aux 
moutons gras et C=3 à une case vide. 
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DATE 
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■fi^pe. d« mouloh C~A rnootan »vvai<jre. 


C a«2 rv>outen 
c = 3 Case i/tâe 

Boucle. PioFf f h/SxT 


^mplace-menh dts nr>OL>/ôr>5 


Klormro de ta cose. 


fiJumero do moufôn â déplacer» 


^ posîti'on (du moutZn a 
dessiner 



') Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S I. 
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Awari 


AWARI est un combat stratégique entre l'ordinateur et vous. 

Le ZX81 vous demande d'entrer votre prénom ; puis, il 
dessine le jeu sur l'écran de cette façon : 



3 1 3 1 3 1 3 1 3 1 3 

_ 

EXEMPLE 1 ; 0 

PARTIE 1 

0 


3 1 3 1 3 1 3 1 3 1 3 



Tout au cours d'une partie, l'ordinateur affichera votre 
prénom, puis un message, soit : 

PRENOM 
JE JOUE EN 

ou : 

PRENOM 

QUEL EST VOTRE MOUVEMENT ? 

L'ordinateur joue sur les cases du haut et le joueur sur les 
cases du bas. 

Il y a trois pions au départ dans chaque case. Le jeu consiste 
à déplacer les trois pions d'une case de un en un dans les 
cases suivantes et dans le sens inverse des aiguilles d'une 
montre : 


EXEMPLE 2 : 

MOUVEMENT 


_ 

3 1 3 1 3 1 3 1 3 1 3 

_ 

0 

PARTIE 1 

0 



+1 


3 1 3 1 3 1 3 1 3 1 3 



-3 +1 +1 . 



---•J 
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EXEMPLE 3 

RESULTAT 


3 I 3 I 3 I 3 I 3 I 3 


PARTIE 1 


3 3 3 0 4 4 


Il conviendra de considérer les cases sous les numéros 
suivants : 


EXEMPLE 4 


6 


sens du jeu 

4 .— 

5 4 3 2 


1 


total 
de 0 

1'ordinateur 


.3_L3_L3_L3_L3_L3 

3 I 3 I 3 I 3 I 3 I 3 


total 
0 du 

_joueur 


1 2 3 4 5 6 

.-> 

sens du jeu 

Ainsi, dans l'exemple 2, la case mouvementée était la case 4 : 

PRENOM 

QUEL EST VOTRE MOUVEMENT ? 

Taper 4. 

Si le dernier pion placé s'arrête dans une case TOTAL, le 
joueur doit jouer. Si le dernier pion s'arrête avant ou après 
cette case, c'est au joueur adverse de jouer. Dans l'exemple 2, 
c'est au joueur (et non à l'ordinateur) de rejouer. 

La partie s'arrête quand toutes les cases de l'un des deux 
joueurs sont vides. Il y a alors affichage du nombre de parties 
gagnées par joueur. 

Pour une autre partie, le jeu initial se redessine et le 
compteur de parties s'incrémente. 

A vous de jouer ! 
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O 

10 

REM RURRZ 


O 

O 

50 

DIM B(14) 


O 


60 

DIM K(14) 



O 

70 

DIM 0(14) 




S0 

DIM H(14) 


O 


90 

PR INT '‘UOTRE PRENOM" 



0 

100 

INPUT B* 


O 


lie 

LETT PR»1 



0 

130 

LET T1=0 




130 

LET Ta=0 



O 

14.0 

l_ET EttINT (RND^^.S) 




150 

CLS 


O 


160 

PRINT RT 1,13;"RURRI" 



O 

170 

FOR 1=1 TO 13 


O 


160 

LET B(I)=3 



O 

190 

NEXT I 




300 

LET B (7) =0 __ 



0 

308 

PRINT RT 8,8;“ ";TfiB 30; 

%• «t 



310 

LET B(14)=0 


O 


318 

FOR 1=1 TO 30 



0 

314. 

PRINT RT 7^l;*'““;RT 9,1; 




316 

NEXT I 



O 

318 

PRINT RT 19,0;B$ 




280 

PRINT RT 8,1;B(14),TRB 3 

i; ■ 

O 


PRRTIE *;PR;trb 87; "1 



O 

E (7J 



O 


330 

FOR J=13 TO 8 3TEP -1 



0 

34.0 

PRINT RT 6,3+( (13-J) *4) ; 

" 1 


O 

•',8 (J) ; 

350 NEXT ü 


O 

O 

260 

PRINT RT 6,87; -r' 


O 


270 

FOR J=1 TO 6 




280 

PRINT RT 10,3+((J-1) »4); 

•• 1 

O 

O 

, B (J) ; 

290 NCXT ü 


O 


300 

PRINT RT 10,27; 



O 

302 

REM- 




304 

REM JEU _ 


O 


310 

IF E=1 TMEN eOTO 1600 

UOT 



320 

PRINT RT 80,0;"QUEL EST 

O 


RE MOUUEMEKT” 



0 

330 

INPUT R 

380 



340 

IF R<1 OR R>6 TMEN GOTO 


O 

350 

IF B(R)=0 TMEN GOTO 380 


O 


360 

GOSUB 1040 



O 

370 

LET B=0 




380 

FOR I-l TO 6 _ . 



0 

390 

IF B(I)<>0 TMEN LET 8=1 




400 

NEXT 1 _ 


O 


410 

IF B=0 TMEN GOTO 3000 




480 

LET B=0 


0 


430 

FOR 1=8 TO 13 



O 

440 

IF B (1)00 TMEN LET B»1 




450 

NEXT I 



O 

460 

IF B=0 TMEN GOTO 3000 




470 

IF E=1 RND R»14 TMEN GOTO S 


0 

30 

IF fl=7 TMEN GOTO 880 




480 


O 


490 

IF E=1 TMEN GOTO 580 



0 

500 

LET E=1 


O 


510 

GOTO 880 



0 

580 

LET E=0 




530 

GOTO 880 


O 


980 

REM- 




990 

REM DEPLRCEMENT DES PIONS 

O 


1000 

LET R=U 



0 

1010 

FOR Z=1 TO 14 




1080 

LET B(Z)=G(Z) 


0 


1030 

NEXT Z 




1040 

LET P=B(fl) 


O 


1050 

LET B (R) =0 



O 

1060 

FOR I-l TO P 


O 


1070 

LET R=R+1 



O 

1080 

IF R=15 TMEN LET R=1 




1090 

LET B(fi)=B(fl)+1 


O 


1100 

NEXT I 



O 

1110 

RETURN 


O 
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1580 

REM- 



1590 

REM COUP DE L."ORDXNnTEUR 


O 

1500 

PRINT RT 20,0;"JE JOUE EN 

O 

O 

1610 

FOR J=1 TO 14 

O 


1620 

LET G (J) =8 (J) 



1630 

NEXT J 


O 

164-0 

IF B(13)si THEN GOTO 2500 

O 


1650 

IF 5(13)>s3 THEN GOTO 2500 


O 

1660 

IF 8(12)>s3 THEN GOTO 2520 

O 


1670 

IF 8(11)>b4 THEN GOTO 2540 



1680 

FOR Jsl3 TO 8 STEP -1 



1690 

IF G(J)=0 THEN GOTO 1770 



1700 

GOSUB lOOO 


O 

1710 

IF n=14 THEN GOTO 2600 

O 


1720 

LET H(J)sR 


O 

1730 

FOR U=9 TO 13 

O 


174.0 

LET ZsU'l-B(U) 



1750 

IF Z = 14 THEN LET K(J)sK(J)4- 


O 

1760 

NEXT U 

O 

O 

1770 

NEXT J 

O 


1780 

LET ZaO 



1790 

IF G(12)>b5 THEN GOTO 2520 

O 


1800 

IF G (8) si THEN GOTO 2580 


O 

1810 

IF G(9)si THEN GOTO 2560 

O 


1820 

FOR Js8 TO 13 



1830 

LET UsK(J) 


O 

184.0 

IF U>Z THEN GOSUB 2620 



1850 

NE)(T J 


O 

1860 

IF Z>0 THEN GOTO 1980 



1870 

LET Zs8 


O 

1880 

FOR Js8 TO 12 

O 


1890 

LET UsH(J) 



1900 

IF U>Z RND U>0 THEN GOSUB 2 

O 


620 




1910 

NE>CT J 


O 

1920 

IF R>7 THEN GOTO 1980 



1930 

LET Zs7 


O 

194.0 

FOR Js8 TO 13 

O 


1950 

LET UsH(J) 


O 

1960 

IF U<Z RND U>0 THEN GOSUB 2 

O 


620 




1970 

NEXT J 

O 

O 

1980 

FOR Us8 TO 13 



1990 

LET K(U)sO 



2000 

LET H(U)sO 



2010 

NEXT U 


O 

2020 

LET CsR-7 

O 


2030 

PRINT RT 20,12;C 



204.0 

LET JsR 

O 


2050 

GOSUB loee 



2060 

GOTO 370 


O 

24.80 

REM- 

O 


2490 

REH COUP CHOISI PRR ZX 


O 

2500 

LET Rs13 

O 


2510 

GOTO 1980 



2520 

LET Rsia 



2530 

GOTO 1980 



2540 

LET Rsll 


O 

2550 

GOTO 1980 

O 


2560 

LET Rs9 



2570 

GOTO 1980 

O 


2580 

LET Rs8 



2590 

GOTO 1980 


O 

2600 

LET RsJ 



2610 

GOTO 1980 


O 

2620 

LET ZsU 

O 


2630 

LET RsJ 



2640 

RETURN 

O 


2980 

REM- 



2990 

REM RESULTRTS 


O 

3000 

IF B(14)>B(7) THEN GOTO 310 

O 

0 

3010 

IF B(14)<B(7) THEN GOTO 305 

O 

O 

3020 

PRINT RT 20,0;"NOUS SOMMES 

0 

O 

EXRCOUO" 



3030 

LET EsINT (RND+.5) 



3050 

PRINT RT 20,0;"UOUS RUEZ GR 

0 


GNE 

»• 


O 

3060 

LET T1sT1+1 

O 


3070 

LET Esl 


O 

3080 

GOTO 3200 


O 

3100 

PRINT RT 20,0; J""RI GRGNE 

O 

O 

3110 

LET T2sT2'*-l 

O 


3120 

LET EsO 


O 

3200 

LET PRsPR+l 



3210 

PRINT RT 16,5; •■ZXs";T2;TRB 



(15> ; 

B»; ••s";Tl 


O 

3220 

GOTO 170 

O 


28 





ETUDES POUR ZX81 


LE PROGRAMME 


Lignes 10 à 210 

Après la saisie du prénom du joueur, on initialise le 
compteur de jeu, le nombre des parties gagnées ainsi gue le 
nombre de pions par case. 

Lignes 212 à 300 

La variable E détermine le tour du joueur si sa valeur est 
zéro, et le tour du ZX81 si sa valeur est un. Au premier tour, 
cette variable comporte un nombre aléatoire mais, dès la 
deuxième partie, ce sera le perdant gui commencera. 

En ligne 310, le programme se sépare en deux, suivant la 
valeur de E. 


E^O : TOUR DU JOUEUR 


Lignes 320 à 560 

Dès l'entrée du mouvement, on vérifie sa validité. En cas 
de mauvaise réponse, comme il n'est pas possible de passer son 
tour, la guestion est de nouveau posée jusqu'à l'obtention 
d'une réponse correcte. 

L'appel du sous-programme de la ligne 1040 déplace les pions 
des cases concernées. 


E=1 : TOUR DU ZZ81 


Lignes 1600 à 2060 

Pour déterminer son choix, le ZX81 utilise trois tableaux 
pour comparer les solutions possibles et les plus avantageuses. 

La solution trouvée est placée dans A comme pour le joueur, 
ce qui permet d'utiliser le sous-programme de déplacement des 
pions des lignes 1000 à 1110. 

Lignes 1000 à 1110 

On déplace les pions de la case pointée par A en les distri¬ 
buant dans les cases suivantes, en considérant que la case 15 
(inexistante) correspond à la case 1. 


Lignes 570 à 530 

Le jeu doit s'arrêter quand un des joueurs n'a plus de pion 
dans son terrain. Dans ces lignes, on vérifie, à chaque tour, 
cette éventualité. 

Dans ce cas, on passe à la ligne 3000. 


Lignes 3000 à 3220 

Dès qu'un joueur n'a plus de point, on affiche le score de 
chacun, ainsi qu'un message concernant l'heureux gagnant... 
et le jeu continue. 
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ORIGINE, 




/iMÆ 

ôA /u'/(S/ 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 


l/btr« mouv/tmenh 


Si b = O fin de, partie. 


Wotne prfnom 


N/onobi-e, dfc- puons dans chaque. 


case 


K/umero de la coSe ^oueé 
Si' E ~ d. padie Z. Y 
Si s O partie JoueAyr 
Saui/egande do» "tableau 8 0 


fyombre. de pions dans chaque 
oaSe après déplacement 
Boucle f’OR ! 


Boude pop !tJPDiT 
Coefficienh de chaque case 
(V/umero de porti'e 
A/bmbre de parties i^ûc^necs par¬ 
le ^ûueur- 

K^fombr-e de parlées cjaqnées 


par- Z.Y 


Cde-fficient de la Case etudt'eè 


Boude. foR / KrsxT 


Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.i 
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Guerre des étoiles 


Les vaisseaux-robots ont envahi l'espace inter-sidéral ! et 
il devient de plus en plus difficile d'atteindre mars. Voilà 
pourquoi les pilotes s'entraînent sur ce simulateur de vol. 

Dès le départ {-après avoir tapé RUN-), il est indiqué, sur 
l'écran, le temps de vol (60 secondes maximum), le nombre de 
lasers utilisés (vous en avez 10 au début du jeu), et le 
nombre d'ennemis abattus. 

Vous appuyez sur n'importe quelle touche -sauf BREAK- pour 
tirer ; la cible change après chaque essai réussi ou non ; les 
compteurs de lasers et d'ennemis comptent les points en plus 
ou en moins ; le temps continue de s'écouler. 

L'affichage des résultats s'effectue dans 3 cas : 

- il ne reste plus de lasers, 

- les 60 secondes sont écoulées, 

- vous avez éliminé 5 ennemis. 

Un message apparaît avec les résultats et vous pouvez 
repartir. 


arrêt du jeu en cours : BREAK 



ETUDES POUR ZJ81 



J>lâble ! 


Stra/s - Jt 

Touohi ?__ 


‘^f++ ^+^' 

, i . 


TEMPS 

LOSERS 

ENNEMIS 


TEMPS 

LRSERS 

ENNEMIS 


ECONOMISEZ «JOS MUNITIONS ???? 

R Lfi PROCHRINE MISSION ???? 


TRPEZ SUR UNE TOUCHE 


TRPEZ SUR UNE TOUCHE 
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1 

a 

3 

5 

7 

10 

11 

IS 

13 

14. 

15 

16 

17 

18 
19 

ae 

as 

30 

35 

4.0 

4-5 

50 

55 

60 

65 

67 

70 

7a 

74. 

76 

77 

78 
80 
8a 

34. 

87 

88 

89 

90 
9a 
94. 

100 

llO 

aoo 

aïo 

aao 

ass 

0 

870 

380 

GOTO 

300 

4.80 

4.90 

500 

510 

515 

sao 

585 

530 

54.0 

550 

580 

0 


REM GUERRE DES ET01L.ES 

REM- 

CL.3 

DIM R*(5,5) 

(-ET Z = 1KT (RND>5) +1 
l_ET R* (1) ='• 

LET R«(a) >“<>eOs>“ 
l-ET RC(3)=“UU“ 

LET Ri(4.) =•• 

LET R«(5)-"<»■>>“ 

PRINT RT 10,0;-n 
PR INT RT 10,85; 

PRINT RT 11,87; 

PRINT RT 0,10; "1 
PRINT RT 81, 11;' B 
REM DESSIN DE LR 
POR !■! TO 11 
PLOT 30,4.4-1 



PLOT 84.+ 1,4. 
PLOT 30,87+1 


PLOT 84.+ 1,38 

PLOT 11+1,88 

PLOT 11,16+1 

PLOT 37+1,28 

PLOT 48,16+1 

IF I>7 THEN GOTO 87 

PLOT 86+1,0 

PLOT 86+1,33 

PLOT 16,16+1 

PLOT 43,18+1 

IF I>3 THEN GOTO 87 

PLOT 88+1,14 

PLOT 88+1,29 

PLOT 81,80+1 

PLOT 39,80+1 

NEXrr I 

REM- 

REM OEU 
LET T«0 
LET K=10 
LET E«0 

LET X-INT (RND»a> 

LET Y*INT (RND+5) 

PRINT RT 8+Y, la+X; R» (Z),. 

LET TmT + 1 ^ 

PRINT RT ll,l;T 

IF INKEY»I< >'••• THEN GOSU8 50 

PRINT RT 8+Y,12+X;" 

IF E»5 OR T=60 OR K=0 THEN 
900 

GOTO 100 

REM- 

REM DESSIN DU l-RSER 
FOR p-0 TO aa ^0 fO 
PLOT 8+P,P 
PLOT 8+P,43-P 
PLOT sa-P,P 
PLOT 58-P,43-P 
NEXT P 
LET KbK-1 

PRINT RT ll,a7.:K;“ 

IF Y*8 RND X»1 THEN GOTO 70 
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590 PRINT RT a-fY , IS'f-X; R* (Z) 

&O 0 FOR p-aa To 6 step -i 

505 IF P~15 TMEN PRINT RT 6+Y,l 
a+x;R« tZJ 
610 UNPUOT e+p,p 
615 UNPUOT 8 4-P.4.3-P 
630 UNPLOT sa-P,P 
635 UNPL.OT Sa-P,4.3-P 
630 NEXT P 

635 LET Z=INT (RND«5)+1 
64.0 RETURN 

630 REH - 

690 REH DESSIN DE 1_'*EXPLOSION 

700 FOR P=aa TO 0 STEP -1 

710 LET U>RND»11 

730 LET U>RND»8 

730 PLOT U+a4.U+18 

740 UNPLOT 8+P,P 

750 UNPLOT 8'«-Py43-P 

760 UNPLOT 5a-P^P 

770 UNPLOT sa-P,43-P 

730 NEXT P 

790 FOR U=8 TO 13 

300 PRINT RT U,ia;" 

610 NEXT U 
615 LET Z«INT 
(RND*5> -«-1 
330 LET E^E-t-l 
840 PRINT RT ai^l9;E 
350 RETURN 

880 REH - 

890 REH RESULTRTS 
900 CLS 

910 PRINT TRB 10; 

930 PRINT 


TEHPS 

LRSERS 

ENNEHIS 


";T 

•';k 

";e 


930 PRINT 
940 PRINT 
950 PRINT 

954 PRINT 

955 PRINT 

956 PRINT 

950 IF Ex5 THEN GOTO 10O0 
970 IF E-t-K>8 RND E>1 THEN GOTO 
1030 

930 IF E-fK<6 THEN GOTO 1040 
990 GOTO 1060 

1000 PRINT UOUS RUEZ LR FORCE 
ÎÔiÔ GOTO 3000 

1030 PRINT " PRECIS HRIS PRS RRP 
IDE . . . . 

1030 GOTO 3000 

1040 PRINT " ECONOHISEZ UOS HUNI 
T IONS . . . . 

1050 GOTO aO00 

1060 PRINT ’■ UOUS RESTEREZ fl LR 

BR3E” 

1070 PRINT R LR PROCHAINE MISS 
ION . . . . 

3000 PRINT RT 30,5;"TAPEZ SUR UN 
E TOUCHE" 

3010 IF INKEY*<>"" THEN RUN 
3030 PRI^ RT 80,5;“ 

3030 GOTO ^8000 ■ 
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LE PROGRAMME 


Lignes S à 14 

On définit, dans le tableau A$, les dessins des vaisseaux 
ennemis. 

Lignes 15 à 87 

Dessin de la mire de tir, ainsi que des compteurs de temps, 
lasers et ennemis. 

Lignes 90 à 94 

On initialise les compteurs de temps, lasers et ennemis 
(variables T, K et E). 

Lignes 100 à 200 

On attribue, aux coordonnées X et Y des vaisseaux, des 
valeurs aléatoires, puis on affiche le vaisseau à ces 
coordonnées. 

Lignes 210 à 300 

Après avoir incrémenté le compteur du temps (variable T), 
on teste si une touche du clavier a été enfoncée. Si c'est le 
cas, on saute au sous-programme en ligne 500. Dans le cas 
contraire, on efface le vaisseau ennemi en affichant des 
blancs aux coordonnées X et Y. 

Si le nombre d'ennemis est égal à 5, ou si le temps est égal 
à 60, ou s'il ne reste aucun laser disponible, on considère le 
jeu fini et l'on va directement en ligne 900 pour les résultats. 

LES SOUS-PROGRAMMES 


Lignes 500 à 640 

On dessine, à ce sous-programme, les quatre lasers dirigés 
sur le vaisseau ennemi ; on affiche, pour cela, 23 petits 
carrés par l'instruction PLOT gue l'on efface après par 
l'instruction UNPLOT. 

Si le vaisseau est touché, on va au sous-programme en ligne 
700 pour simuler l'explosion. 

Avant de retourner au programme principal, on assigne, à la 
variable Z, un nombre aléatoire pour changer de type de 
vaisseau. 
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Dignes 700 à 850 

On simule l'explosion du vaisseau ennemi en affichant aléa¬ 
toirement des carrés par l'instruction PLOT. 

On efface ces carrés en ligne 790 en imprimant des espaces 
pour que le jeu continue. 

On affiche le nombre d'ennemis détruits avant de revenir au 
jeu principal. 

Lignes 900 à 2030 

Une des conditions de la ligne 280 étant vraie, on affiche 
les résultats du jeu : temps, lasers restants et ennemis 
détruits. Suivant ces résultats, on affiche un message corres¬ 
pondant au niveau du joueur. 
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NOM DU PROGRAMME 


G-uERPte STOILE5 



IDENTIFICATION des VARIABLES 


/origine/ / 


<0 , 


TYPE (*) 


COHPT6UR 


/Nûice 


COHPT6UR 


t/ARlfiBLE 




VAR}a3lE 


VfiR’lABUe' 


EiAoNG, 


/m/f/ij 

fâ/f0k7 


OBSERVATIONS 


JR8LBR0 

IB 


coHPreuR 

IB 


'ifjp'ice- 

IB 





B 


II 

I 


B 




II 

II 


I 

I 


2i€Ssin cl€.«. i/OiSiOac/x 


tJcrnhre. cl ennemis clfi-firudî 


Soucie. For /tJSXT pou*- le. dessin 
d* la maire de. "hV. 
tJombr^ de iQSemfi rcslonf^ 
Boucle. FoR/ N€yT pour )e dessin 
des laiCr^ 

Temps, écoule. 

Coovdonneee aléatoire^ des 


po'ink de l'eyploSfon d'un uals,iQau 


Csordonnees alto hoi ce s 
du UQf's^eau 


(Jomero aleohyre du uatiSeau 



*) Légende ; aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P S I. 
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Course automobile 


N'avez-vous jamais imaginé que vous preniez l'autoroute en 
sens inverse ? 

C'est ce qui arrive à la petite voiture de cette course 
folle dont le conducteur devra piloter le mieux possible pour 
éviter tout ce qui surgira en face de lui. 

Après avoir fait RUN, vous choisissez les difficultés de 
votre épreuve en tapant pour la largeur de la route, puis pour 
la densité de circulation : 1, 2 ou 3. 

Puis, vous tapez sur n'importe quelle touche (sauf BREAK) et 
le jeu se dessine sur l'écran ; vous tapez encore sur n'importe 
quelle touche, et ça démarre !... 

Une seule règle de conduite impérative : taper sur Q pour 
virer sur la gauche et sur P pour virer sur la droite. 

Au bout de 5 accidents, vous découvrirez l'affichage des 
résultats de votre course et vous pourrez recommencer. 
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le RCH COURSE RUTOMOBtLE 

lee DiH u*(5,a,s) . 

110 LET U«(1,1)>"A" 
lae LET uf(i,a)-"X" 

300 oiH uici^a.e). 

ai0 LET 

aaa let u«(i,a>-"T'' 

000 LET Cb 0 
310 LET Ca0 

0a0 REM - 

335 REM NIUERU DU JEU _ 

330 PRiNT TRB la; "iBâBnBHHBHi 

34.0 PRINT 

350 PRINT "1....DIFFICILE" 

360 PRINT "a... .MOYEN" 

370 PRINT "3....FACILE" 

360 PRINT 

390 PRINT RT ai .0; "LRROEUR DE L 
R ROUTE ?" 

4.00 INPUT L 

410 PRINT RT ai.0;"DENSITE DE C 
IRCULRTION ?” 

4.30 INPUT T 

4-70 REM- 

480 REM JEU DE DEPART 
490 CLS 

500 FOR I«1 TO 11 
510 PRINT TRB 33;" 

530 PRINT TRB 9;"B";TRB a0;"B"; 
TRB 33;" " » — * 

530 NEXT I 
590 LET X>14 
600 PRINT RT 0.X;U*<1.1) 

610 PRINT RT l.X;Wi(l.a) 

630 LET D«(PEEK 163964856*PEEK 
16397) 

700 IF INKEY*»"" THEN GOTO 700 

710 REM - 

730 REM JEU 

750 LET Z-INT (RND*T)+1 
760 LET R-INT (RND«3)444L 
770 LET P«INT (RND*5)+a4L 
780 LET Rsll4L 
800 FOR I>1 TO a 
1000 IF I>1 THEN GOTO 1060 
1010_PRINT RT ai,R+P;U«(Z.1);TRB 

10 ai> scfeoLL 

1030 PRINT TRB R; "B"; TRB R4P;U«( 
Z.a);TRB R+R; "B";TRB 31;" "; 

1040 SCROLL 

1050 GOTO 1110 

1060 PRINT RT ai,31;" "; 

1070 SCROLL 
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10O0 PRINT TRB O+R; 

jTRB Blj ** ** i 

1090 SCROLL 

1110 IF INKEY*»"" THEN GOTO 114-0 
1120 IF INKEY*»"0" THEN LET X*X- 
2 

1130 IF INKEY* = "P" THEN LET X«X-»- 
2 


114-0 PRINT RT 0,X;lJ*Cl,l) 

1150 PRINT RT l>X;Ui(1^2> 

1160 IF PEEK (D-t-BT-l-X) <>0 OR PEEK 
(O-t-BB-fX) <>0 THEN GOTO 2000 
1170 L^ BoB-fl 
1200 NEXT I 
1210 GOTO 750 

1980 REH - 

1990 REH RCCIDENT 
2000 LET Xl>X-*-l 
2010 FOR I»2 TO 8 
2020 PLOT Xl*2,4-0-(I«2) 

2030 PLOT (Xl*2) -1-1*2,40 
2040 PLOT (Xl*2)-1*2,40 
2050 PLOT (XI *2) -1-1,40-1 
2060 PLOT (Xl*2)-1,40-1 
2070 PLOT (Xl*2)-1-1,40-(1*2) 

2080 PLOT (Xl*2)-1,40-(1*2) 

2090 NE)(T I 

2095 REM - 

2096 REM RESULTRTS 

2100 CLS _ 

2110 PRINT TRB 10; "BSaEHEnB" 
2120 PRINT 
2130 PRINT 

2140 PRINT "KILOMETRE :";B/10 

2150 PRINT 

2160 PRINT 

2170 LET C=C-H 

2180 PRINT “fiCCIDENTS :";C 

2190 IF C«5 THEN GOTO 2220 

2200 IF INKEYTHEN GOTO 2200 

2210 GOTO 490 

2220 PRINT 

—lO'aofc DP TNT* 

2240 IF ByC>150 THEN PRINT " * 

<JOU5 ETES UN RS *" 

2250 IF BXC<150 RND B/OTO THEN 
PRINT " * UOUS ETES DRN6EUREUX 

»" 


2260 IF B/’C<80 THEN PRINT " » UOU 
S ETES URRIMENT UN DRNGER * 

* PUBLIC *" 

2270 PRINT 
2280 PRINT 

2290 PRINT "TAPEZ SUR UNE TOUCHE 


2300 IF INKEY*»"" THEN GOTO 2300 
2310 RUN 
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LE PROGRAMME 


Lignes 100 à 310 

Après déclaration des tableaux V$ et W$, on y place les 
dessins des voitures, puis on initialise les compteurs d'acci¬ 
dents et de kilomètres parcourus. 

Lignes 330 à 420 

On saisit au clavier les deux paramètres de difficulté, à 
savoir la largeur de la route et la densité de circulation ; 
on retrouve ces deux paramètres dans le reste du programme. 

Lignes 490 à 700 

Ces lignes dessinent, sur l'écran, les bords de la piste 
ainsi que la voiture du joueur. En ligne 700, la fonction 
INKEY $ attend qu'un caractère {-autre que BREAK-) soit tapé 
au clavier. Il est possible d'obtenir le même résultat en 
écrivant PAUSE 40 000 (ou tout autre nombre supérieur à 32 767), 
mais cette instruction a tendance à faire décrocher l'écran 
quand une touche est appuyée. 

Lignes 750 à 1210 

La variable Z définit l'apparition de voitures en sens 
inverse - W$(l) étant rempli, seul Z=1 fait apparaître une 
voiture. Les deux autres variables A et P positionnent respec¬ 
tivement la route et la voiture. 

Tout le jeu est basé sur l'effet du SCROLL qui a pour but de 
faire croire au joueur que sa voiture avance parmi celles d'en 
face (ce qui n'est pas le cas !). 

On teste, par des INKEYS $, les déplacements à droite ou à 
gauche de la voiture, tout caractère autre que P et Q étant 
ignoré. 

Pour déterminer si un obstable se présente, on va chercher 
directement, dans la mémoire de l'écran, les caractères face 
à la voiture. 

Si ceux-ci sont différents de 0 (l'espace dans le code ZX), 
on saute au programme qui simule l'accident. 

Lignes 2000 à 2090 

Elles dessinent, par l'instruction PLOT, l'effet du CRASH 
provoqué par la rencontre de la voiture et de l'obstacle. 

Lignes 2110 à 2310 

Dès la fin du dessin de l'accident, on efface l'écran pour 
afficher les résultats, le nombre de kilomètres parcourus, 
ainsi que le nombre d'accidents. 

Si ceux-ci sont au nombre de 5, on affiche, à l'écran, un 
message correspondant à vos dons de conducteur. 
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IDENTIFICATION des VARIABLES 


^ORIGINE, 




OBSERVATIONS 


/m/M 






f/ARlA6Le 


l/AKiABue 


TfleceRo 


TABuenu 




ftlOVlLAA C-fi- 





■î^oi/hon de, la routé. 


td lo métrés p>arcourus 


k/omhne. d ' accid&nts 


ConFcnu de, la Case, nnenno/ne 


det/onh la \/oi ture .. 


Boucle. î^ofR / Avevr 


Châlit de. la larc^eur de. la toute. 
Position de, la Voilure en Sens 


inc/erse 


lûr-^eur- Ole. la trxjtê. 
choix de. (a dens^^e' oie Circulah'on 
2>essin i/oift/re en sens inuerse 


3>essln de la Uoiture. 
Coordonné^ de, la i/olture. 
Si -z i-d aftpariHon d'une 
uo'itûre, en Sens tnu&râe. 



Légende ; aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S I. 
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Chasse au trésor 


Il s'agit, pour deux joueurs, d'additionner, à tour de rôle, 
le maximum des points inscrits sur cette grille. 

Il faut, pour cela, user de beaucoup de tactique, mais il y 
a aussi une grande part de hasard. 

Après RUN, un écran gris apparaît, le temps du remplissage 
de la grille qui s'affiche d'un seul coup. 

Le joueur déplace les pions $ ou * avec les touches — - t 1 

Il gagne la valeur marquée de la position où il passe ; cette 
position se met alors à 0. Les emplacements des 2 pions de 
départ ont des valeurs cachées qui se révèlent si on repasse 
dedans. 

Les scores sont indiqués au bas de la grille tout au long du 
parcours. 

La chasse au trésor s'arrête lorsque l'un des joueurs arrive 
à 200 points ; il y a alors affichage des résultats^ 

On tape sur NEHLINE pour avoir une nouvelle grille. 
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1 REM CHRSSE RU TRESOR 

S REM- 

10 REM XNmRL.lSnTZON 
15 DIM R«(4.,l) 

20 DIM RlSS,3Si 
25 DXM X(4) 

30 DXM Y «4.) 

35 DXM P{4) 

36 REM - 

37 REM RFFICHROE PEU 
4-0 PRXNT RT 0,7;- 


LET R=0 
4.9 FRST 

50 FOR Y«1 TO 10 
60 FOR X»1 TO 14. 

70 LET fl(Y,XÏ=XNT (RMD«10> 
80 PRXNT RT Y»2,X*2; R CYj.X> 
90 NEXT X 
100 NEXT Y 
110 SLOU 

130 REM - 

190 REM PEU 
200 LET X(1)=7 
210 LET Y(11*5 
220 LET X(2)=8 
230 LET Y<2}b6 
24.0 PRXNT RT Y 
250 PRXNT RT Y 


(Il «2..X (11 «2.: 
(21 »2,X (21 *2; 

•î" 


) 


260 LET R*(11 
270 LET RC(21 
300 FOR X«1 TO 
305 LET R=0 

310 PRXNT RT Y(X) »2,X{I} #2;RC(I 

315 XF P(XI>200 THEN GOTO 3000 
320 XF INKEY$<>••'• THEN GOTO 350 
330 PRXNT RT Y(XI»2,X(XI»2;“ " 

340 GOTO 310 
350 GOSUB 500 
355 XF R-1 TMEN GOTO 305 
360 PRXNT RT 21, (X-Il *6; RC(11 ; ” 
B";P (X) 

365 NEXT X 
370 GOTO 300 

480 REM - 

490 REM DEPLRCEMENT 
500 LET DC=XNKEYC 

505 XF CODE DC<33 OR CODE DC>3e 

THEN LET R»1 

510 XF R=1 TMEN RETURN 

515 LET D-URL DC 

520 OOSUD 1O0O+TD*1001 

530 XF R>1 THEN GOTO 2000 

540 PRXNT RT Y(X)*2,X(XI*2;0 

550 IF D»6 THEN LET XtIl-XtXl-1 

560 IF D-6 THEN LET Y(X1«Y(X1+1 

570 IF D«7 THEN LET V(I1»Y(X)-1 

580 XF D«e TMEN LET X(X}=X(Xl4l 

590 LET P (XI =P (XI +R (Y (XI j,X (Il 1 

600 LET R(Y(XI,X(Xl1=0 

610 PRXNT RT Y (Il 42,X (XI *2.: RC (I 


DEPLRCEMENT 
TMEN LET R=1 


LET R*1 
LET R=1 


) 

620 
100O 
1010 
1500 
1510 
1600 
1610 
1700 
1710 
1800 
1810 
1980 
1990 
2000 
2010 
»'■ 

2020 

2030 NEXT K 
2040 RETURN 

2980 REM - 

2990 REM FIN DE PRRTXE 
3000 CLS 

3010 PRXNT TRB 10; "1 
3020 PRXNT 
3030 PRXNT 
3040 FOR X=1 TO 2 

3050 PRXNT RC(11;" -> ";P(I1 

3060 PRXNT 
3070 NEXT X 

3080 IF INKEYC="" TMEN GOTO 3080 
3090 CLS 
3100 RUN 


RETURN 

REM- 

REM UERIF 
XF X(XI=1 
RETURN 

XF Y(X)»10 THEN LET Rssl 
RETURN 

XF Y (XI =1 THEN 
RETURN 

XF X(XI=14 THEN 
RETURN 

REM- 

REM MESSRGE ERREUR 
FOR K*1 TO 20 

PRXNT RT 21,16;"«IMPOSSIBLE 
PRXNT RT 21,15;" 
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ETUDES POUR ZX81 


LE PROGRAMME 


Lignes 10 â 35 

On initialise dans ces lignes cinq tableaux : 

- A$ pour les symboles des joueurs, 

- A pour les points à gagner (tableau à 2 dimensions), 

- X et Y pour les coordonnées des joueurs, 

- P pour le total des points par joueur. 

Lignes 40 à 110 

On place, dans le tableau A (10,14) des nombres aléatoires 
que l'on affiche sur l'écran aux coordonnées de ce même 
tableau. Pour plus de rapidité dans le remplissage de ce 
tableau, on utilise l'instruction FAST qui provoque l'efface¬ 
ment de l'écran pendant quelques secondes. 

Lignes 200 à 370 

On affiche successivement le symbole du joueur et un blanc 
pour donner un effet de clignotement. 

Dès qu'une touche est appuyée, on va au sous-programme en 
ligne 500 pour tester si elle est valable. Au retour de ce 
sous-programme, on affiche les points du joueur. 


SOUS-PROGRAMME 


Lignes 500 à 620 

On vérifie que la touche appuyée corresponde bien à une des 
flèches (en fait, aux touches 5 à 8). 

Si ce n'est pas le cas R=1 et on retourne au programme 
principal. 

En ligne 520, on saute à un des sous-programmes "calcule" 
à partir de la ligne 1500. 

Au retour de ce sous-programme, si R=1, c'est qu'il n'est 
pas possible de se déplacer dans ce sens (sortie du cadre). 

Sinon, on modifie les coordonnées du joueur et on incrémente 
le nombre de ses points (ligne 590). 

On place, dans la case correspondante du tableau, la valeur 0. 


SOUS-PROGRAMME 


Lignes 2000 à 2040 

Dans le cas où R=1 (déplacement impossible), en ligne 530, 
on affiche 20 fois le message "IMPOSSIBLE" que l'on efface 
aussitôt pour donner un effet de clignotement. 

Lignes 3000 à 3100 

Si un joueur a plus de 200 points (ligne 315), le programme 
efface l'écran et affiche les résultats des points obtenus par 
chaque joueur. 
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IDENTIFICATION des VARIABLES 




rpt&Lefiu 




\/ARlf)8L6 




roBtenu 


TBBLeOU 


iwMCe 






•S^nnbû/€.S dfcS ^ue.ur& 


TahlejQu des p>oinfi 


2>e^piace.imcjr)h du Joueur- 


liéfdacÉrrienh du Joyêiu* 


Soude VoR /hSB'tCT 


Boucle "VOR / A/fi-yr 


Toha/ des pointi des Joueurs 


R s -4 si ei^reur de deplocemenl 


Boude ToR / A/Evr 


R 


Cook-donncieS 


des ■Joueurs 
Boude VoR/fu^nT 




(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite^^Editions du P.! 
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Calendrier 


Comme son titre l'indique, ce programme permet d'obtenir, 
mois par mois, le calendrier d'une année du 20ème siècle. 

En effet, après avoir tapé RUN, l'ordinateur demande l'année 
que vous désirez ; cette année doit être entrée sous la forme 
des deux derniers chiffres : EX=pour 1982, entrez 82, cela 
limite, ici, les demandes de 0 à 99, des années 1900 à 1999. 

Après avoir enregistré l'année, l'ordinateur en présente le 
mois de janvier sur l'écran. Il suffit d'appuyer sur n'importe 
quelle touche pour voir apparaître ensuite le mois de février, 

etc. . . 

Ce qui permet, entre chaque nouveau mois, de faire une COPY 
sur l'imprimante et d'obtenir, ainsi, un calendrier complet 
de l'année. 
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ETUDES POUR ZI81 


I 

! 


le REM 
S0 REH 
30 DIM 
4.0 LET 
50 LET 
3.00 UET 
38HRRS 
31JUIN 


CRLENORIER 


M«(1331 
8=0 
J=0 

M«>"JANUIER 31PEURIER 
31RURII- 30Mni 

_ 30JUILLET 31ROUT 

315EPTBMBRE30OCTOBnE 31NOUBM 
BRE 30DECEHBRE 31“ 

380 REM--- 

190 REM JOUR DE LA SEMAINE 
300 PRINT AT 31,0;"ANNEE DU CAL 
ENDRIER T" 

310 INPUT U 

330 LET P=(U-1)/’100 

330 LET 0 = INT CP/'4.) 

34.0 LET M=3e + INT ( (5»U) ^4.) - INT 
CP) 4.0 

350 LET Y-M-C7»INT CM/-?) ) 

360 IF INT (U/’4.) =U/4. THEN LET B 
= 3 

380 REM - 

390 REM CALENDRIER 
300 FOR 1=1 TO 13 

310 LET NJ>UAL (H(i(I»ll-l TO I* 
31) ) 

330 IF 1=3 AND B>1 THEN LET NJ- 
39 

330 CLS 

350 PRINT "hb “iJ;" i_“;M»CI*l 
1-10 TO I#ll^ar;" ";u;’’i^ ";3604. 
B-J;TRB 39; 

360 PRINT ••r"TTAB 31; " ■" 

370 PRINT ’J L M M J 
U S DF' 

380 PRINT 
390 PRINT 
4.00 FOR K = 1 TO NJ 
*10 PRINT TAB V**;K; 

*30 LET Y-Y4-1 

*30 IF Y=8 THEN PRINT 

**0 IF Y=8 THEN PRINT 

*50 IF Y=8 THEN LET Y=1 

*60 NEXT K 

*70 LET J-J4.NJ 

500 FOR L=0 TO 31 

510 PRINT RT 3,L; 'V 

530 PRINT AT 19,L;’^«" 

530 NEXT L 

5*0 FOR L«3 TO 19 

550 PRINT RT L,0;"l" 

560 PRINT AT L,31;’‘J" 

570 IF_L-3 OR L=19 THEN PRINT A 

^Seé^î^ L-3 OR L=19 THEN PRINT A 

T L,0;"|t: 

590 NE>Cr L 

600 IF INKEY * = •••• TMEN GOTO 600 
610 NEXT I 
630 CLS 
630 RUN 
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LE PROGRAMME 


Lignes 30 à 100 

Le tableau A$ contient la liste des noms des mois de l'année 
ainsi que le nombre de jours par mois. 

Cette formule permet de palier au manque des instructions 

DATA et READ. 

Lignes 200 à 260 

On saisit l'année du calendrier dans la variable U. Cette 
variable est alors utilisée pour connaître le numéro du jour 
de la semaine du 1er janvier de cette année (lundi=l, mardi=2, 

etc... ) . 

En ligne 260, on regarde s'il s'agit d'une année bissextile ; 
si c'est le cas, on met la variable Bal. 

Lignes 300 à 630 

Pour chaque mois de l'année, on extrait, du tableau A$, le 
nombre de jours par mois (variable NJ). 

S'il s'agit du mois de février, on vérifie le contenu de la 
variable B (année bissextile). 

La ligne 350 affiche, à l'écran, le nombre de jours écoulés 
(variable J), le nom du mois (on cherche celui-ci dans le 
tableau A$), l'année étudiée et le nombre de jours restants. 

La variable Y donnant la position du jour suivant, on inscrit 
le numéro de ce jour en utilisant l'instruction TAB (Y). 

Quand Y=8 (le Sème jour de la semaine), on remet cette 
variable à 1, et ainsi de suite. 

En ligne 470, on incrémente le nombre de jours écoulés du 
nombre de jours que l'on vient d'afficher. 

Les lignes 500 à 590 dessinent un cadre autour du calendrier. 
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DATE 

NOM DU PROGRAMME : 

PAGE 


/ 

IDENTIFICATION des VARIABLES 

/ ^ / 

/origine/ / 


/^// 

TYPEC) / /^4/4'/lONG./ observations 

/à/f/M/ / 



f\iOuiLLffû-e 







Btr-f si 

artneé. bissejfh/e 


Bouc-le, 

Poe? / tJ€xT paum 

l‘édih'on 

des 12 mais de 1 

anneé 

\^cmbre. 

de Jours écoutes 


Boucla 

POR /H/EXT pour 


l'cdihon 

des, Jours 


Boucle. 

Pûff/A/ÊXT paun 

le. 

dessin 

du cadre. 


Liste, û/es mois et" du nomJaine 

de. "^àors pQr rnois . 

Uh il sec 

pour le Calcul 

du jour- 

de le» 

Semoine . 


A/omobre, de, "Jours pûr 

mois 

UHl/s^s pour le. calcul du 

fi>ur de la semai r»e 

i ^ 

finnee. 

Q efï/djer 


Kfume.ro 

du Jour de lû Semotne : 

Lundi = 

•4 ^ mardi * *2 ^ .... 




(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.I. 
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Tiercé 


Et maintenant, les paris sont ouverts ! 

Huit joueurs peuvent suivre cette course à Auteuil ; le 
programme demande d'ailleurs, dès le début, le nombre de 
joueurs, de manière à prévoir la tenue des paris. 

Puis, vous notez les noms des parieurs (pas plus de 7 
lettres par nom). Après cela, vous donnez, pour chaque joueur, 
une combinaison des numéros de trois chevaux sur 7 partants. 

Les résultats de ce tiercé seront : 

0 point pour aucun cheval arrivé dans les 3 premiers, 

0 point pour 1 cheval arrivé dans les 3 premiers, 

2 points pour 2 chevaux arrivés dans les 3 premiers, 

5 points pour 3 chevaux arrivés dans le désordre, 

10 points pour le tiercé dans l'ordre. 

A la fin de vos paris, tapez sur n'importe quelle touche, et 
le terrain de course apparaît. Vous déclenchez le jeu en 
tapant sur NEWLINE. 

La barrière descend et la course NO 1 est partie... 

A la fin de la course, l'affichage de l'arrivée se fait au 
bas de 1'écran. 

Pour avoir les résultats complets par joueur, on tape sur 
NEWLINE ; de même, pour refaire une autre course. 
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1 REM TIERCE 
3 LET C=0 
4- OOSUB 4000 
S OOSUB 6000 
7 LET R»0 
10 DIM XC7> 

IB DIM Rt71 
20 FOR 1=1 TO 7 
25 LET R(I)=0 
80 LET X(I> =1 
4.0 LET Y= Cl-1) »3 
50 OOSUB 2000 
60 PRINT RT Y+1^0;I 
70 NEXT 1 
80 FOR 1=0 TO 20 
90 PRINT RT 1,31; -V 
lOO NEXT I 
llO FOR 1=2 TO 4.1 
115 PLOT 10,1 
120 NEXT I 

125 REM - 

126 REM JEU 

130 PRINT RT 21,0;“RTrENTION RU 
OEPRRT- 

140 IF INKEY*=“" THEN GOTO 140 
150 PRINT RT 21,0;“COURSE N0 "; 
C; ** ** 

160 FOR 1=1 TO 20 
170 PRINT RT 1,5; “ 

180 NEXT 1 

200 LET 1 = INT (RND47) «.1 

210 LET Y=fl-1)*3 

220 LET X (1) bX (I) .«.1 

300 OOSUB 1000 

310 IF R<7 TMEN GOTO 200 

320 PRINT RT 21,O;"RESULTRT " 

330 IF 1NKEY$b"“ TMEN GOTO 330 

340 OOSUB 7000 

350 CLS 

360 GOTO 5 

980 REM - 

990 REM DEPLRCEMENT DES CHEUfiUX 
100O IF X(I)>27 THEN RETURN 
2000 PRINT RT Y+0,XtlJ; 

2010 PRINT RT Y+1,X(I); 

2020 PRINT RT Y+2,X(I); l 

2030 IF X(I)b27 THEN GOTO 3000 
2040 RETURN 

2930 REM - 

2990 REM UERIFICRTION RRRIUEE 
3000 IF RbO THEN PRINT RT 21,0; 
RRRIUEE: 

3020 LET RbR+1 

3030 PRINT RT 21,8+(R«2) ; 1; “ 

3040 LET R(R)=I 
3050 RETURN 

3930 REM - 

3990 REM SRISIE JOU EURS 
400 0 PRINT TRB 10; 


3 30C 


4010 PRINT 

4020 PRINT RT 18,0;“NB DE PRRIEU 
RS ?" 

4030 OOSUB 5000 
4035 INPUT PR 

4040 IF PR>6 THEN GOTO 4020 
4045 DIM C(PR,3} 

4050 DIM N$(PR,7) 

4055 DIM P(PR) 

4060 FOR 1=1 TO PR 

4070 PRINT RT 18,0;“NOM DU PARIE 
UR ■• . J. ** •» 

4080'INPUT N*(I) 

4090 NEXT I 
4100 RETURN 
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4.980 REM- 

4.990 REM FLECHE DES 
seoe PRINT RT 19,0; 

f olo PRXNT RT ao,<i; 

oao PRiNT RT ai,o; 

5030 RETURN 

5980 REM - 

5990 REM SRXSIE DES PRRXS 

6000 eus 

6005 LET C-C+1 _ 

6010 PRXNT TRB lO; “HBS :";C 

eoao GosuB 5000 

6030 FOR X-1 TO PR 
603a PRXNT RT 10,0;" 


__ INPUT 



6035 FOR Ü«1 TO 3 

6040 PRXNT RT 18,O;‘COMBXNRXSON 
DE •';N*(X);" CHEURL 
6050 XNPUT C(X,tJ) 

6053 PRXNT RT lO,tU-1)*10;"CH."; 
O; " U C (X,<J) 

6053 NEXT ü 
6060 NEXT X 
6070 CL.S 
6080 RETURN 

6980 REM-- 

6990 REM RESULTRTS 
7000 CLS 
7015 PRXNT " 

PrÎnT 

7030 PRXNT "PLRCE NO CHEURL." 

7035 PRXNT 

7040 FOR X«1 TO 7 

7049 XF X>3 THEN GOTO 7050 

7046 PRXNT "-> ";CHR* (X*156);" 
-‘"iCMR* CR (X) +156) ; 

7047 GOTO 7060 

7050 PRXNT "-> ";X;" -";RIX);" 

7060 NEXT X 
7068 PRXNT 

7064 PRXNT "NO NOM Cl Ca C3 

PTS TOTRL" 

7066 PRXNT 
7070 FOR X-1 TO PR 
707a LET P»0 
7074 LET T«0 
7076 LET TO-O 
7080 FOR U«1 TO 3 
7090 FOR KbI TO 3 

7100 XF R(U)bC(X,K) THEN LET PbP 
+ 1 

7105 XF übK RfiD RfU)=C(X,K) THEN 
LET TbT+ 1 
7110 NEXT K 
7iaO NEXT U 

7130 XF Tb3 THEN LET TO=TO+5 
7140 XF P«3 THEN LET TO=TO+5 
7150 XF P*a THEN LET TOaTO+a 
7160 LET PCX)bP(X)*TO 
7180 PRXNT X;" ";N*(X};" ";C(X, 

1);" ";C(X,a);" ";CCX,3);*' * 

;TO;" ";PCXS 
7190 NEXT 1 

78001 XF INKEYOb"" THEil GOTO 7800 
7ai0 RETURN 
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Lignes 3 à 120 

Cette partie du programme construit le jeu du départ. Après 
initialisation des principales variables (voir identification 
des variables), le sous-programme en 4000 saisit le nombre de 
joueurs et leurs noms. Pour que les entrées soient plus faci¬ 
les, le sous-programme de la ligne 5000 dessine une flèche 
désignant l'endroit de l'écran où doivent être tapées les 
données. Puis, c'est la saisie des paris du sous-programme 
des lignes 6000 à 6080. Comme précédemment, on dessine une 
flèche pointant les entrées par le clavier. 

Le jeu de départ utilise le sous-programme des lignes 2000 
pour dessiner les chevaux. 

Lignes 130 à 360 

Après l'enfoncement d'une touche, c'est le jeu qui commence. 
On tire aléatoirement en ligne 200 le numéro du cheval qui 
doit avancer d'une case. Le cheval choisi est déplacé par le 
sous-programme des lignes 1000 à 2040. 

Dans le cas où un cheval est sur la ligne d'arrivée, le 
sous-programme en 3000 affiche son numéro et incrémente le 
nombre de chevaux arrivés. 

Dès que les sept chevaux sont sur la ligne d'arrivée, le 
sous-programme de la ligne 7000 affiche le tableau d'arrivée, 
ainsi que les points gagnés par chaque parieur. 

Après consultation de ce tableau, on retourne à la ligne 5 
pour une nouvelle course. 


66 



ETUDES POUR ZX81 



NOM DU PROGRAMME : 

TiERce 

PAGE 

/ 

IDENTIFICATION des VARIABLES 

/ , / /ORIGIN^ / 

/ ÿ / type (*) //^4/^Xong./ observations 

/ / Mmim 

HH 

coHPreuR 

! 

a 




hlomfLro de la course 


Tfieuef^o 

9 

1 




Tobleau conrertonl' /es fsarls 

9111 

CohPTEuR 

1 

B 




A/uméro du chei/ol q ûi/ûdcer 


ihiùice 

1 

Q 




Boucle POR / US'xr 

A/,i, (|) 

TASLERU 

B 

1 




K/orct de.^ pûneurS 



Légende ; aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite^^Editions du P.S.I. 
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Fusée lunaire 


Un navigateur spatial s'entraîne en conduisant une fusée 
d'un côté à l'autre d'une montagne lunaire. 

Au début du jeu, la montagne se dessine sur l'écran, ainsi 
que la fusée et l'endroit opposé où elle doit retomber ; sont 
aussi indiquées la quantité d'oxygène initialisée à 20 et la 
quantité de carburant initialisée à 90. 

Le joueur doit donner la hauteur et la largeur du déplace¬ 
ment en deux temps chaque fois ; il doit : 

- préciser le sens positif ou négatif ; 

- donner l'amplitude de 1 à 9. 

L'oxygène et le carburant diminuent à chaque coup. 

En cas d'erreur de navigation, 6 messages peuvent apparaî¬ 
tre : 

- ECRASEE SUR LA MONTAGNE, 

- SORTIE DE L'ESPACE, 

- MISE EN ORBITE, 

- LA FUSEE S'ECRASE, 

- PLUS DE CARBURANT, 

- PLUS D'OXYGENE. 

Des paramètres précis régissent les rapports des données 
entrées par le joueur. Au cas où il ne parviendrait jamais à 
poser sa fusée, il pourrait jeter un coup d'oeil au programme... 

Sinon, le message "GAGNE" apparaîtra ; l'oxygène et le 
carburant se réinitialiseront. 

Dans tous les cas, un nouveau jeu se redessine tout seul, 
après quelques instants. 
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le REH FUSEE LUNRIRE 
80 UET RPUs0 
30 t-ET RPHb 0 
4.0 LET OXsSe 
S0 LET CRbOD 

80 REM - 

90 REM DESSIN DE LR MONTRGNE 
100 LET XM^SD-i-(RND*1&> 

110 LET YM«16+IRND#ie) 

300 FOR 1-0 TO YM „ 

210 PLOT 14.+ t { (XM/'ai /YM) «D ,1+2 
220 PLOT XM + 14.-C ( (XM/2) /YM) *1) , 
1+2 

230 NEXT I 
24.0 FOR 1-0 TO 63 
aS0 PLOT 1,2 
260 NEXT 1 
270 PLOT 81,3 
300 LET XF-7 
310 LET RXF-7 
320 LET YF-3 
330 LET flYF«3 
34.0 GOSUB 2000 

34.5 REM- 

34.6 REM JEU 
350 PRINT RT 21,21; 


UERTICRLE 


360 GOSUB 2500 
370 LET PU-O 

4-00 PRINT RT 21,21; "M0RI20NTRLE 

4.10 GOSUB 2500 

4.20 LET PM=0 

430 LET DXF-XF 

440 LET DYF-YF 

500 LET XF-XF+PM+RPH 

510 LET YF-YF+PU+RPU 

520 LET RPU-PU/a 

530 LET RPH-PM/2 

540 IF PU>0 THEN GOTO 570 

550 LET CR-CR-PH♦PU 

560 GOTO 700 

570 LET CR-CR-PH-PU 

700 GOSUB 4000 

750 LET OX-OX-1 

760 PRII4T RT 16, 10; “OX ; " : OX; " 
770 PRINT RT 19,9; "CR: ”; CR;“ 

760 IF OX<-0 THEN GOTO 6060 
790 IF CR<-0 THEN GOTO 5100 
800 IF INT tXF)=50 RND INT tYF) 
=3 THEN GOTO 6000 
900 GOTO 360 

1980 REM - 

1990 REM RFFICHE LR FUSEE 

2000 IF YF>-40 THEN GOTO 5000 

2001 IF YF<3 THEN GOTO 5020 

2002 IF XF>-56 OR XF<3 THEN GOTO 
5040 

2005 UNPLOT RXF,RYF 
2010 UNPLOT RXF+2,RYF 
2020 UNPLOT RXF,flYF+l 
2030 UNPLOT RXF+a,RYF+l 
2040 UNPLOT RXF+1,RYF+1 
2080 UNPLOT RXF+l,RYF+a 
2060 UNPLOT RXF+l,RYF+3 
2070 UNPLOT RXF+l,RYF+4 
2100 PLOT XF,YF 
2110 PLOT XF+a,YF 
2120 PLOT XF,YF+1 
2130 PLOT XF+2,YF+1 
2140 PLOT XF+1,YF+1 
2150 PLOT XF+l,yF+2 
2160 PLOT XF+l,YF+3 
2170 PLOT XF+l,YF+4 
2180 LET RXF-XF 
2190 LET RYF-YF 

2200 IF XF+1>(XM/2)+14 THEN GOTO 
2230 

2210 IF XF+3>-14+C < tXM/2)/YM) 4(Y 
r-2)) THEN GOTO 5060 
2220 GOTO 2300 

2230 IF XF-l<-XM+14-t t tXM/a) /YM) 
*(YF-2)) THEN GOTO 5060 
2300 RETURN 
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34.80 REM -- 

3400 REM CHOXX O. CRRBURRNTT 
2580 PRINT RT 31,0;"SENS + OU - 

' 7 - •• 

2505 IF INKEY* = ■■•• THEN GOTO 2505 
2510 IF INKEY$ <>••+•• RND INKEY«<> 

■ THEN GOTO 2500 
2520 UET S*>XNKEY$ 

3000 PRXNT RT 21,0;" 1.2.3.4.5. 

w . 7 . 8 . G , 

3030 L.ET OsS 

3035 XF XNT t0><>0 THEN GOTO 305 

0 

3040 PRXNT RT 21,0*2;CHR* (0+156 

) 

3045 GOTO 3055 

3050 PRXNT RT 21,0*2;”B" 

3055 IF XNKEY*="" THEN GOTO 3055 
30SO XF XNT (O)<>0 THEN GOTO 307 

3065 PRXNT RT 21,0*2;CHR« (0*28> 

3070 GOTO 3080 

3075 PRXNT RT 21,0*2;"." 

3080 XF XNKEY»bCHR« 118 THEN OOT 
3 3200 

3085 IF 0=1 THEN GOTO 3095 
3090 XF XNKEY*="0" THEN LET 0=0- 
0.500 

3095 XF 0=9 THEN GOTO 3110 
3100 XF XNKEY*«"P" THEN l_ET 0-0 + 
. 5 

3104 XF O<0.6 THEN LET 0=0 

3105 REM PRXNT RT 21,28;O 
3110 GOTO 3035 

3200 XF Sf="-" THEN LET 0=0*-! 
3210 RETURN 

3960 REM - 

3990 REM DEPLRCEMENT FUSEE 

4000 IF YF-DVF-O THEN GOTO 4003 

4001 LET INC-(XF-DXF»(YF-DYF) 

4002 GOTO 4005 

4003 LET XNC-XF-DXF 

4005 XF DXF<XF RND XNC<0 THEN LE 
T XNC=XNC*t-l) 

4010 XF DXF>XF RND XNO0 THEN LE 
T XNC=XNC*(-1> 

4015 LET XF-DXF-XNC 
4020 LET ST=1 

4025 IF DYF>YF THEN LET ST--1 

4030 FOR I-DYF TO YF STEP ST 

4035 LET YF-X 

4040 LET XF-XF+XNC 

4050 GOSUB 2000 

4060 NEXT X 

4100 RETURN 

4980 REM - 

4990 REM PERDU 

5000 LET M*-"MXSE EN ORBITE" 

5010 GOTO 5200 

5020 LET Mf-"LR FUSEE S""ECRflSE" 
5030 GOTO 5200 

5040 LET M*="SORTXE DE L”"ESPRCE 
5050 GOTO 5200 

5060 LET M*="ECRRSEE SUR LR MONT 
RGNE" 

5070 GOTO 5200 

5080 LET M*x"PLUS O""OXYGENE" 
5090 GOTO 5200 

5100 LET M»="PLUS DE CRRBURRKT" 
5200 FOR X=1 TO 30 
5210 PRXNT RT 0,0;M$ 

5220 PRXNT RT 0,0;" 

5230 NEXT X 
5240 CLS 
5250 RUN 

5980 REM - 

5390 REM GRGNE 

6000 PRXNT RT O,0;“...GRGNE..." 
5010 FOR X=0 TO 20 
5020 PRXNT RT 18,13;I 
6030 NEXT X 

6040 FOR X=0 TO 90 STEP 5 
6050 PRXNT RT 19,12;X 
5060 NEXT X 
5070 CLS 
5080 RUN 
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LE PROGRAMME 


Lignes 20 à 50 

On initialise, dans ces lignes, les différents paramètres du 
jeu (voir identification des variables). 

Lignes 100 à 340 

On définit la largeur du pied et la hauteur de la montagne 
par deux nombres aléatoires XM et YM, puis l'on dessine cette 
montagne en utilisant l'instruction PLOT. 

Lignes 350 à 900 

Pour entrer le mouvement et la guantité de carburant néces¬ 
saire, on utilise le sous-programme des lignes 2500 à 3210. On 
incrémente (ou l'on décrémente) la position de la fusée en 
fonction de ces valeurs. 

L'appel du sous-programme en 4000 déplace la fusée sur 
l'écran en prenant les anciennes coordonnées pour la position 
de départ et les coordonnées nouvellement calculées pour sa 
position d'arrivée. 

Après affichage de l'oxygène et du carburant restant, on 
teste s'ils sont supérieurs à zéro. Si ce n'est pas le cas, 
on affiche un message de condoléances correspondant au type 
d'erreur de vol commis (à partir de la ligne 5000). 

Dans le cas où les nouvelles coordonnées de la fusée corres¬ 
pondent à celles de l'arrivée, on saute aux lignes 6000 pour 
le message de félicitations et le renouvellement du carburant 
et de l'oxygène. 

Lignes 2000 à 2300 

On efface, par l'instruction UNPLOT, la fusée à ses anciennes 
coordonnées et on la dessine à sa nouvelle position. 

Dans le cas où l'on sort du cadre de l'écran, un des messages 
des lignes 5000 apparaît. 

Lignes 4000 à 4100 

La trajectoire de la fusée, suivant ses anciennes et nou¬ 
velles coordonnées, est calculée dans ces lignes. A chague 
nouvel incrément de sa position, le sous-programme en 2000 la 
déplace. 
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DATE 

NOM DU PROGRAMME : 

Füsee ^u^vA/fte■ 

PAGE 

4/^ 

IDENTIFICATION des VARIABLES 



TYPE (*) 



OBSERVATIONS 





Q 



m 

\ ficcé.\é.rQfîon i/erhcole 


U’ARlAeue' 


B 



H 

el" hûn'-^onlale. 


DW«/(SQLe 


B 




') anciennes Oooirdonncé^ de, h 


usdlfteLG 


B 



m 

foseé. auorvV- deplac«man)- 

RHH 

coMPreu#? 


B 




^Qirburanh re<,tQnh 


u/^«i/»8Gr 


B 




^ l/onablc cie Souv/trjQirde oies 




B 




Coordonnées uerheo les 

Ml 



1 



n 

hod joni-al«-S de la fu<,&é 

Ml 



1 



IB 

pe.ndanl~ le. déplQc^menh 


IK/i>ic6^ 


a 




Boucle Fof? / Jv/e'yr 


u/>rti>ôLe 


B 




IrtCK-érvren)' do 

Ml 



1 




KoM'^onhal de. la A^eé 


UAdlfieLB 


B 




Message d e-rreuir- 


COhiPTSUS 


B 




res hanh 


\/AAàA6CS' 


B 




pousseie. hon-^onhale. 


^AAÀ^euer 


D 




pousse^ ueyîicûlA, 


l'AfiÀAece' 

X 

1 




QuainTt/e de cav^boranK 5 

Ml 



1 




ufUiSejr 

||M 

WA ««Aste 

X 

1 




Sens do dé placeroenb 


^//)AiA6LE 

1 

B 




iTncrcmcnh do deplaoeroenh 

Ml 


1 

1 




\/e.d^tCQl de Iq Ajsée. . 

Ml 


1 

1 






") Légende : aiguillage, compteur, constante. 


index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.I. 
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DATE NOM DU PROGRAMME : - < PAGE 

Fusee LufJMdt: 

IDENTIFICATION des VARIABLES 



(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.l. 
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Morpion vertical 


Vous connaissez certainement le jeu du morpion que le ZX81 
vous permet, ici, de jouer à deux. 

Il vous demande, d'abord, les initiales des deux joueurs (à 
donner en quatre lettres maximum). 

Puis, il trace, sur l'écran, une qrille de 8 x 8 cases et 
attend que le premier joueur, dont la couleur est signalée en 
haut à gauche de l'écran {carré gris ou noir), tape le numéro 
de la colonne où tombera son pion. 

Puis, c'est le tour du deuxième joueur et ainsi de suite. Il 
suffit d'appuyer sur une des touches de 1 à 8, et le déplace¬ 
ment s'effectue. 

Au gré des deux joueurs, celui qui gagne la partie peut être 
le premier qui aligne horizontalement, verticalement ou en 
diagonale, 4 ou 5 pions. C'est à eux d'en décider, car une 
partie ne s'arrête pas automatiquement, mais en rentrant à 

la place d'un numéro. Une nouvelle grille se dessinera alors, 
et le jeu repartira. 
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ETODES POÜR ZX81 


10 RCM MORPION UERTICRL. 

20 RCM - 

30 DIM P(10^10) 

4.0 DXM N«(2,4.) 

4.B DIM Pi (2,1) ■ 

50 rOR 1*1 TO 2 

S0 PRINT RT 21,0;"INITlfiLES DU 
JOUEUR ••;i 
70 INPUT N*(I) 

50 NEXT I 
20 CL3 

B5 REM - 

97 REM DESSIN DE Lfl 6RIt.l_E 
lOO PRINT TRB S;"-*-* MORPION — 

105 PRINT 

llO FOR I-l TO 9 

120 PRINT TBB 7; 

130 FOR J*1 TO 6 
14.0 PRINT 
150 NEXT J 
160 PRINT 

165 IF I»9 TMEN GOTO 230 
170 PRINT TRB 
160 FOR J«1 TO 6 
190 PRINT •• 

200 NEXT J 

210 PRINT 

220 NEXT I 

230 PRINT TRB 7; 

24.0 FOR IkI TO è 
250 PRINT •• 

260 NEXT I 

270 UET P*(l)-"ji" 

260 LET P* (2) ^ 

290 PRINT RT 2,0;N$(1);"-H" 

300 PRINT RT 4,0; N* (2) 

310 LET D>INT (RND»2>4l 

380 REM - 

390 REM JEU 

400 PRINT RT 21,0;N«(D);“(“;P«( 
D);") NO COLONNE ?" 

410 IF INKEY*»"" TMEN GOTO 410 
420 LET R$sINKEY$ 

430 IF Rf»"*" TMEN RUN 
440 LET R-URL R« 

450 IF R<1 OR R>e TMEN GOTO 400 
460 FOR I«1 TO 6 

470 IF P (R, 1)00 TMEN GOTO 490 

480 NEXT I 

490 LET I«I-1 

500 IF I«0 TMEN GOTO 400 

310 LET P(R,I)=D 

560 REM - 

590 REM RFFICHRGE DES PIONS 
600 FOR J-1 TO 6 

610 PRINT RT (J*2) -fl, (R»2) 46; P» 
(O) 

620 IF I«J TMEN GOTO 700 

630 PRINT RT (J«2)41,(R*2)46;" 


640 NEXT J 

660 REM - 

690 REM CMRNGEMENT DE JOUEUR 

700 IF D»1 TMEN GOTO 730 

710 LET D-1 

720 GOTO 400 

730 LET D»2 

740 GOTO 400 


81 










ETUDES POUR ZZ81 


DE PROGRAMME 


Lignes 30 à 90 

On dimensionne trois tableaux : 

- P pour connaître l'emplacement des pions sur la grille. 

- N$ pour les initiales des joueurs. 

- P$ pour les caractères graphiques représentant les pions de 
chaque joueur. 

On saisit, aux lignes 50 à 80, les initiales des deux 
joueurs en utilisant une boucle POR/NEXT. 

Lignes 100 à 310 

On dessine, sur l'écran, la grille du jeu en utilisant 
plusieurs boucles imbriquées. Puis l'on assigne, au tableau P$, 
les caractères graphiques correspondant aux pions. On les 
affiche en haut à gauche de l'écran avec les initiales de 
chaque joueur. 

En plaçant, dans la variable D, un nombre aléatoire compris 
entre 1 et 2, on désigne le joueur qui doit commencer la 
partie. 

Lignes 400 à SIO 

Après affichage du nom du joueur, on saisit, au clavier, le 
numéro de la colonne choisie. Si une étoile est tapée, on 
considère le jeu comme terminé et l'on retourne au début par 
l'instruction RUN. 

Pour la colonne désignée, on recherche, dans le tableau P, 
la première case libre. Si la colonne est déjà remplie, on 
retourne à la saisie (ligne 400), sinon on place dans le 
tableau le numéro du joueur. 

Lignes 600 à 640 

En partant du haut de la grille, on affiche le pion du joueur 
que l'on efface immédiatement tant que l'on n'est pas sur la 
première case inoccupée. 

Lignes 700 à 740 

Avant de retourner à la saisie d'une autre colonne, on 
place dans la variable D le numéro du joueur suivant. 
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NOM DU PROGRAMME : 


ORIGINE, 


{/f%/4yLONG. 

p/i/m/ ! 



MORPtOK/ veffTKBL 



IDENTIFICATION des VARIABLES 


OBSERVATIONS 


tJiMTMro du ■j’outUK' en coori 
Zoucit. VoR / tJCKT 
Soucia PoR. j tje%x 


Xr«'+iQ/ei dfeS ^outurs 


'Tdtlfeau conli.nanh It-S pions 


de chûi^ot, Jeotur . 


RepresfenhaK'ûn graphique, dei 


p><ûn& de chaque Joueur 


Xdt-nhqjc 0 î? ^ meus l/aleur» 
numérique. 

Réponse du Joueur 
( hJS cie colonne ou pour 


de parKe 3. 



(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.I 
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Graphiques 


Les quatre programmes qui suivent ont quelque chose en corn 
mun. Ils sont en effet identiques, à l'exception d'une seule 
ligne. Mais quel changement dans les résultats ...! 


Alors . . . donnez libre cours à votre imagination et modifiez 
la ligne 30 pour obtenir de nouveaux graphigues de plus en plus 
originaux. 
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Tours de Hanoï 


Au départ, plusieurs disques d'inégales largeurs sont 
empilés sur une tour située à gauche de l'écran. Il y a une 
deuxième tour vide au centre et une troisième tour vide à 
droite. Il s'agit de mettre les disques de la tour gauche sur 
la tour droite et dans le même ordre. 

Dès le début, un message "NOMBRE DE DISQUES!3 à 7) ?" vous 
demande avec combien de disquœ vous voulez jouer. 

Puis les tours se dessinent et le ZX81 vous demande votre 
mouvement par : 

"TOUR DE DEPART" : à entrer 1, 2 ou 3 (numéro des 
tours de gauche à droite) 

et "TOUR D'ARRIVEE" : à entrer, 
jusqu'à ce que tous les disques soient sur la troisième tour. 

Le message "BRAVO, VOUS AVEZ IRCXJVE" récompense alors vos 
efforts. 

Au cours de jeu, en cas de fausse manoeuvre, un message 
d'erreur s'affichera. Il est, en effet, impossible de poser 
un disque sur un autre plus petit. Par contre, un disque peut 
aller de la tour 1 à la tour 3, puis revenir à la tour 2... 

Si vous voulez un autre jeu, il suffit de taper sur n'importe 
quelle touche à l'apparition du message "BRAVO". 
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ETUDES POUR ZZ81 


I lUU I 


I nju I 


10 RCM TOUR» DE HRNOI 

30 REM - 

30 DIM T(7,3> 

4-0 UET C>0 

100 PRINT RT SljO;’'NB DE DXSOUE 
3 «3 fl 7) 

110 INPUT NBD 

130 IF NBD<3 OR NBD>7 THEN GOTO 
100 

130 CL» 


1^0 PRINT TflB 8; 

^00 LET D-7 
310 UET LkIS^o 
330 FOR X«NBD TO 1 STEP -1 
330 UET T «D,l> -U 
34.0 UET U«U-# 

350 UET D-D-1 
a&0 NEXT X 
370 GOSUB 8000 

390 REM - 

300 REM ÜEU 

310 PRINT RT 31,0;“TOUR DE DEPfl 

RT" 

320 INPUT TD 

333 IF TD<1 OR TD>3 THEN GOTO 3 
10 

330 UET NT-TD 

34.0 GOSUB 3000 

350 IF 0-0 THEN GOTO 390 

350 UET M$«"Pfl» DE DISOUE" 

370 GOSUB 4.000 
380 GOTO 310 
390 UET DD-1 

400 PRINT RT 31,0;“TOUR D RRRIU 

EE" 

410 INPUT TR 

420 IF TR<1 OR TR>3 OR TR-TD TH 
EN GOTO 310 
430 UET NT-TR 
440 GOSUB 3000 
450 UET DR-X-1 
450 IF DR-7 THEN GOTO 500 
455 IF T(DD,TD)<T(DR+l,Tfl) THEN 
GOTO 500 

470 UET H«s"DISOUE 3UP. PUUS GR 
RND" 

480 GOSUB 4000 
490 GOTO 310 

500 UET T (DR,TR) -T (DD,TD.» 

510 UET T(DD,TD)-O 
580 FOR K-1 TO 15 

530 UNPUOT K+(31*(TD-1))+3,((8- 
DD)*3)410 
540 NEXT K 

550 PUOT (31# (TD-1) ) +10, ( (8-DD.» 
# 3)+10 

560 FOR K-1 TO T(DR,TR) 

570 PUOT ((IS-T(Dfl,TR))X2)+3+(3 
1» (Tfl-1))+K,((8-DR)#3)+10 
580 NEXT K 
590 UET C-C+1 
600 PRINT RT 19,38;C 
610 FOR 1-8-NBD TO 7 
680 IF T(I,3)-0 THEN GOTO 310 
630 NEXT I 

640 PRINT RT Sl,0;“BnRUO, UOUS 
RUEZ TROUUE" 

650 IF INKEY*-“" THEN GOTO 550 
650 RUN 


ntjon 
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OéM -fiÊfiÊA 


1980 REM - 

1990 REM DESSIN DES TOURS 
2000 REM 

2010 FOR U-1 TO 7 

2080 XF T(iJ,l)-0 THEN GOTO 8090 
2030 LET X»((IS-T1)»/ai+8 
204.0 FOR K = 1 TO T(J,1) 

2050 PLOT X4.K, ( (8-Ul «81 4-10 

2060 NEXT K 

2090 NEXT J 

2130 FOR 1*1 TO 3 

214.0 FOR K*1S TO 85 

2150 PLOT 104. (81» (I-l) 1 ,K 

2160 NEXT K 

2170 NEXT 1 

2180 RETURN 

2980 REM - 

2990 REM NO DU DISQUE SUP. 

3000 FOR 1*1 TO 7 

3010 IF T(1,NT)<>0 THEN GOTO 310 
0 

3080 NEXT I 
3070 LET 0*1 
3080 RETURN 
3100 LET 0*0 
3110 RETURN 

3980 REM - 

3990 REM MESSAGE D ERREUR 
4000 FOR 1*1 TO 85 
4010 PRINT RT 80.0;M» 

4080 PRINT RT 80,0;;; 

4030 NEXT 1 
4040 RETURN 
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LE PROGRAMME 


Lignes 30 à 270 

On dimensionne un tableau T de sept sur trois, pour connaî¬ 
tre, pendant le jeu, l'emplacement des sept disques sur les 
trois tours. 

Puis, l'on saisit le nombre de disques à jouer entre trois 
et sept. 

On remplit le tableau de départ en mettant tous les disques 
sur la première tour, le disque le plus grand étant placé à la 
position 7. 

Le sous-programme des lignes 2000 à 2180 dessine le jeu du 
début, c'est-à-dire la première tour avec le nombre de disques 
que vous avez choisi et les autres tours vides. 

Lignes 310 à 490 

On commence le jeu en saisissant le numéro de la tour de 
départ (on déplace, dans tous les cas, le disque supérieur). 

Le sous-programme en 3000 trouve le numéro de ce disque. Si 
cette tour ne comporte aucun disque, on met le drapeau à 1 
(variable Q), et le sous-programme en 4000 affiche le message 
clignotant "PAS DE DISQUE" ; puis, l'on revient à la saisie 
(ligne 310). 

On utilise le même principe pour la tour d'arrivée. Au 
retour du sous-programme en 3000 , on teste si le disque du 
dessus n'est pas plus petit. Si c'est le cas, le sous- 
programme en 4000 affiche le message clignotant "DISQUE 
SUPERIEUR PLUS GRAND", et l'on revient à la saisie de la tour 
de départ (ligne 310). 

Lignes 500 à 600 

On déplace le disque de la tour de départ sur la tour d'arri¬ 
vée dans le tableau T. Comme on efface une partie de la tour 
de départ, la ligne 550 replace la partie manquante. 

La ligne 590 incrémente le compteur d'essais, puis la ligne 
600 l'affiche sur la ligne 10 de l'écran. 

Lignes 810 à 660 

On teste, sur la troisième tour, le nombre de disques déjà 
placés. S'il correspond au nombre total de disques, on affiche 
le message "BRAVO", puis l'on attend qu'une touche soit 
appuyée pour commencer un autre jeu. Dans le cas contraire, on 
retourne à la ligne 310. 
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ETUDES POUR ZI81 


DATE 

NOM DU PROGRAMME : 

TOURS HRNO )' 

PAGE 

/ 

IDENTIFICATION des VARIABLES 

/ ^ / 

/ / 
/fi / 

/origine/ / 

TYPE!*) / /^i/é'/LONG./ OBSERVATIONS 

/Èiii / 

/WW / 



BHH 

COMPTÇuR 

1 

B 




A/ombne. d 'cssd/s 


[/ARifldLe 

1 

B 




hiombirA nrtQJtimum de d<S<^i>es 


i/’ARiRBLS 

1 

B 




Ê■^r>p^Qcemev>^- àu c/t'squ'C dans 

■H 


1 

1 




kx four cl Qrriv/ee 


i/RRiReLe 

1 

B 




£’mplacemen<~ o(<-> dist^i/e dans 

■■ 


1 

1 




la four de dt-parh 

HH 

lA/blce' 

1 

B 




Boucle FOR. /tJBxT 


/A/b'lCff 

1 

B 




Boucle For f mBxT 


i/^h'icg- 

1 

B 




Boucle FOR / NexT 


URRIR BlB 

1 

B 




Largeur do Gjrand diScfue. 

1^11 

VRA\RBt.e 

1 

B 




M esSQ^ e d ’ erreuir 


uarIrblb 

s 

1 




Mombre de dtsquci) 

Ni Tl 1 


1 

B 




h/oméro de fa four q Bluditr 

■H 


1 

1 




dans le Sous -programme 3ooo 


l>RAPeAU 

1 

1 




si Q»d erreur- de so/si'e 

Bm 

TABlCAu 

II 

B 




Ttthleau contEhanh les positions 

■ 


1 

1 




des disques de chaque ^oor. 


i/flRiflSie" 

1 

1 




Tour cl Qrrlueé 


UARlABLe 

Q 

1 




Tour de dépOrh 


( 

ih/oicer 

1 

B 




Boucle. For / fueyr . 

■H 


1 

1 





■■ 


1 

1 






(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.I. 
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ETUDES POUR ZX81 


Alphabet 


Quel est l'heureux parent qui ne désire pas savourer un quart 
d'heure de sérénité, tout en sachant que les chers bambins ne 
sont pas en train de démonter le lavabo... Voici, pour eux, un 
programme qui joindra l'utile à l'agréable. 

Dès le début, l'alphabet se dessine sur l'écran, sauf une 
lettre remplacée par un carré noir et désignée par une flèche. 

On peut essayer jusqu'à trois lettres, en réponse de la 
lettre manquante. Si le ZX81 affiche un carré noir, c'est que 
la réponse est bonne. 

A la première bonne réponse, le message "carré noir -GAGNE- 
carré noir" s'inscrit en clignotant ; le carré noir étant un 
rappel du carré noir de la lettre à trouver. 

Si toutes les réponses sont fausses, le message "carré gris 
-PERDU- carré gris" s'inscrit en clignotant ; le carré gris 
signifiant une erreur. 

Puis, le jeu repart tout seul au bout de quelques instants. 

Les carrés noirs et gris sont les moyens visuels pour les 
enfants qui jouent seuls (et qui ne savent pas forcément lire) 
de savoir si la lettre qu'ils donnent est bonne ou mauvaise. 

Le manque de graphisme précis du ZX81 empêche des messages 
plus parlants, tel un bonhomme à l'air heureux ou malheureux. 
Mais les programmeurs persévérants pourront essayer de trouver 
des messages tout aussi suggestifs ! 
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ETUVES POUR ZI81 


J.0 REM 
30 REM 
30 LET 
TUyuXYZ" 
40 DZM 
50 
S0 
70 
30 
100 


RLPHRBET 


R $ = "RBCDEFeMIÜKLMNOPORS 


F*(3,3) 
F* (1) =■• 


LET 
LET 
LET 
CLS 
PRINT TRB 


r» i XJ = ■ 

F|(3)="JlV 
F* (3)=" !’• 


lo; 


=RLPHfiBET = - 


110 LET X = INT (RND»36> +1 
130 PRINT RT 10,3;R» 

130 PRINT RT aO,34X;"»" 

14.0 FOR 1 = 1 TO 3 

150 PRINT RT lO+I,1+X;F*(I) 

150 NEXT 1 

170 PRINT RT 17,0;"OUELLE EST L 
R LETTRE OUI MRNOUE?" 

175 PRINT RT 19 , O ; 

FOR U=1 TO 3 

IF INKEY**"" TMEN GOTO 190 
LET R«>INKEY* 

PRINT "iR*i 
IF R*=CMR* 737+X) 


130 

190 

300 

310 

330 

300 

330 

34.0 

350 

350 

370 

300 

310 

4.00 


TMEN GOTO 


PRINT •• 

LET R«-INKEYS 
NEXT J 

LET OO-'-SPERDUS" 
GOTO Zoo 
PRINT •• 

LET G$«"|ORGNEB" 
FOR K«1 TO 80 
410 PRINT RT ai,ia;GS 
430 PRINT RT 31,19;" 
430 NEXT K 
440 GOTO 90 



RCCDEFBHIvIKLMNOPORSTUUUXYZ 


i^UELLE EST Lfl LETTRE OUI MRNOUE? 
> N a, H «, K », 

ÜM^ERDU» 


«-«RLPHRBET=- 



RBCDBFOHIUKLMNOPORSTUUUXYZ 


OUELLE EST Lfl LETTRE OUI MRNOUET/ 
\--> H », I «, E ■ 

■grgne» 
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ETUDES POUR ZX81 


LE PROGRAMME 


Lignes 30 à 70 

On initialise la variable A$ avec l’alphabet, ce qui est 
plus rapide que de passer par une boucle et d'afficher, à la 
suite les uns des autres, les codes du ZX81 de 38 à 63 (A à Z) 

Après dimensionnement, on place, dans la variable F$, le 
dessin d'une flèche. 

Lignes 90 à 340 

Après effacement de l'écran (CLS), on affiche le titre 
"ALPHABET", puis l'on place, dans X, un nombre aléatoire 
entre 1 et 26, pour désigner le caractère de l'alphabet que 
l'on doit trouver. 

En lignes 120 et 130, on affiche l'alphabet et un carré noir 
sur le caractère pointé par X. 

Acceptant trois réponses, on passe par une boucle FOR NEXT. 
Si la réponse correspond au caractère à trouver, on saute à 
la ligne 300 qui place dans la variable G$ le message "GAGNE 
Si on sort de la boucle normalement (par le NEXT J), on place 
le message "PERDU" dans G$. 

Lignes 400 à 440 

On affiche successivement (et quatre vingt fois) le message 
G$ que l'on efface immédiatement pour donner un effet de 
clignotement. 
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DATE 

NOM DU PROGRAMME : 

PAGE 


«LPHfleer* 

/ 


IDENTIFICATION des VARIABLES 



TYPE (*) 





OBSERVATIONS 





B 




ChoÎAt dt CQrac.f£y€.^ Conter^anf" 

■H 



1 




1 ' olphatei" 


T/i8i.ePu 


B 




2>&ssjVt d ’ ur\e. -f/éche. 


OFktt.\«BL.E 


B 




ConTiBJ^h ’ c-dc-^E oo 

■H 



1 




" Peanu '■ 


iK'ùic e 


B 




Boocic. FOR //yJexr pooir le. 

■ 



1 




dessin de la -P/êche^ 

■1 

(wûl c e 


B 




BoucU VOR / K/enT des 3 

Ml 



1 




essoils, 




B 




Boode, pour- 1 ûfTrcWa^e 

1 1 1 



1 




do messao^e. 

^1-^1 1_ 

vAii\pie>i.e 

B 

1 




réponse du joueur- 

Xi 1 1 

vafti/iôLt 

1 

B 




ncmhre aldo-holre. d&Sic^ncitnh 

-III 





1 


la letfre. à +tnouL/e.t^ 

Mi 


1 



1 



■ 








■ 


1 






■ 


1 






Ml 








Ml 








Ml 








Ml 


II 







1 Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P S 
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ETUDES POUR ZX81 


Tricot 


Indispensable à toute tricoteuse, ce petit programme permet 
de connaître rapidement, sans calcul, le nombre de mailles ou 
de rangs à monter et à tricoter, et d'adapter ainsi, à toutes 
les tailles, les explications des tricots aux mesures standar¬ 
disées . 

Il suffit de rentrer le nombre des mailles et des rangs d'un 
échantillon tricoté de 10 cm sur 10 cm, les mesures diverses 
du dos et du devant (largeur à la base , largeur après diminu¬ 
tions des emmanchures, hauteur sous les bras, hauteur totale) 
et les mesures des manches (largeur poignet, largeur à l'épau¬ 
le, hauteur à l'épaule, hauteur totale). Cela est demandé sur 
l'écran par l'affichage d'une page pour l’échantillon puis, 
automatiquement, par le passage à l'autre page des mesures. 

Au bout de quelques instants, une troisième page se dessine, 
donnant les mailles à monter, le nombre de mailles des diminu¬ 
tions ou des augmentations, ainsi que les rangs à tricoter, 
aussi bien pour le dos et le devant que pour les manches. 

Entre chaque page, l'instruction COPY, intégrée au programme, 
lancera l'édition des données de l'écran. Au cas où vous ne 
possédez pas d'imprimante, il faudra supprimer les lignes 116, 
475 et 980 et augmenter la valeur de I aux lignes 110 et 460 
(boucle d'attente plus longue) pour avoir le temps de recopier 
1'écran. 

La dernière page restera, dans ce cas, le temps que vous 
voudrez sur l'écran. 
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eCMONTILLON 
10 CMS SUR 10 CMS 


NOMBRE DE MfilLLES ? 
as MRIt_LES 


NOMBRE DE RRNGS ? 
34. RRNOS 




MESURES DOS OU DEURNT 
LRRGEUR DOS DEURNT fl Lfl BASE 
43 CMS 
LARGEUR POITRINE ? 

40 CMS 

HAUTEUR SOUS LES BRAS ? 

40 CMS 

HAUTEUR TOTALE DOS OU DEURNT ? 
sa CMS 


MESURES MANCHES 
LARGEUR POIGNET ? 

2 2 C*4S 

LARGEUR MANCHE 
36 CMS 

HAUTEUR MANCHE 
43 CMS 
HAUTEUR TOTALE MANCHE ? 
56 CMS 


A L EPAULE 
A L EPAULE 




MONTAGE DOS OU OEUR' 

MONTER 124 MAILLES, SOIT »:.8 CMS 
l-TRICOTER 136 RANGS, SOIT 40 CMS 
-A 40 CMS, RABATTRE DE CHAOUE 
COTE 10 MAILLES, EN PLUSIEURS 
FOIS, POUR LES EMMANCHURES. 
-TRICOTER ENCORE 61 RANGS,SOIT 
13 CMS. 

-A 68 CMS,FERMER SELON L ENCO¬ 
LURE. 


MONTAGE MANCHES 

-MONTER 87 MAILLES, SOIT 22 CMS.i 
-TRICOTER 146 RANGS,SOIT 43 CMS,/ 
EN AUGMENTTANT REGULIEREMENT CHA-/ 
OUE COTE DE 18 MAILLES. 

-A 43 CMS,RABATTRE LES 93 MAIL-, 
Les restantes REOULIEREMENTSOrT/ 
46 MAILLES DE CHAOUE COTE. 

A 86 CMS, FERMER LE TRICOT. 
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***************************** 


BTODBS POUR ZX81 


1« REM MESUREE TRICOT 

£0 REM - 

30 REM ECMRNTILLON lO CMS SUR 
10CMS 

♦ 0 PRINT RT 3, lOJ ‘•ECHRNTIULON" 
4.S PRINT RT 4.,7; ''10 CMS SUR 10 

CMS" 

50 PRINT RT e,0;"NOMBRE DE MRI 
LUES ?" 

S0 INPUT NMR 

85 PRINT RT 10.0;NMR;" MRILLES 

70 PRINT RT 15.0;"NOMBRE DE RR 
NGS ?" 

80 INPUT NRR 

85 PRINT RT 18,0;NRR;" RRNGS" 
90 LET MR>NMR./i0 
100 LET RR«NRRy'10 
110 rOR I-l TO 80 

115 NEXT 1 

116 COPY 
lao CLS 

130 REM - 

14.0 REM MESURES DEURNT ET DOS 
14-5 PRINT TRB 5; "MESURES DOS OU 
DEURNT" 

150 PRINT "LRR6EUR DOS DEURNT fl 
LR BRSE ?" 

160 INPUT LDD 

170 PRINT LDD;" CMS" 

175 PRINT "LRROEUR POITRINE ?" 

176 INPUT LRP 

177 PRINT LRP; " CMS" 

180 PRINT "HRUTEUR SOUS LES BRfl 
S ?" 

190 INPUT MSB 

200 PRINT MSB;" CMS" 

,.®iS..5PJNT "HRUTEUR TOTRLE DOS O 
U DEURNT ?" 
aao INPUT HDD 
330 PRINT MDD; " CMS" 

340 LET MLDD-INT (Mfl*LDD) 

380 LET RHSB-INT (RR^HSB) 

360 LET RHDD«INT (RR*HDD.t 

365 LET MLRP-INT (MfltLRP) 

366 LET D-INT ( (MLDD-MLRP) /-S) 
370 PRINT 

375 PRINT 

380 REM - 

390 REM MESURES MANCHES 

395 PRINT TRB 7;“MESURES MANCHE 

300 PRINT "LRROEUR POIGNET ?" 

310 INPUT LP 

330 PRINT LP;" CMS" 

330 PRINT "LARGEUR MANCHE RLE 
PRULE ?" 

340 INPUT LE 

350 PRINT LE; " CMS" 

360 PRINT "HRUTEUR HANCHE RLE 
PRULE ?" 

370 INPUT ME 

380 PRINT ME; " CMS" 

390 PRINT "HRUTEUR TOTRLE MRNCH 

e ?.. 

400 INPUT HT 

410 PRINT HT;" CMS" 

430 LET MLP*INT (MR*LP) 

430 LET MLE»INT (MR*LE) 

440 LET RME-INT tRR#ME) 

450 LET RHT-INT (RR«HT) 

455 LET RaINT t(MLE-MLP)✓S) 

460 FOR lal TO 50 
470 NEXT I 
475 COPY 
460 CLS 
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700 REM - 

710 REM CRLCUUS DOS ET DEURNT 
730 PRINT TflB B;"MONTOGE DOS OU 
DEURNT" 

730 PRINT "-MONTER ";MLDD;" MRI 
t_i.ES,sorr ";ldd;" cms.- 

74.0 PRINT ^'-TRICOTER ‘^RNSB;" R 
RNQ5,SOrT "iHSB;" CMS." 

780 PRINT '--R ";HSB;" CMS, RRBR 
TTRE DE CHROUE COTE •’;!>}'• MRIU 
LES, EN PLUSIEURS FOIS, POUR U 
ES EMMANCHURES." 

760 LET MaRHDD-RMSB 
770 LET N«HDD-HSB 

780 PRINT "-TRICOTER ENCORE ";M 
;" RRNOS.SOIT ";N;" CMS." 

790 PRINT "-R "J HDD;" CMS, FERME 
R SELON L ENCO- LURE." 

800 PRINT 
310 PRINT 

900 REM - 

310 REM CALCULS MANCHES 
320 PRINT TRB 10;"MONTAGE MANCH 
ES" 

930 PRINT "-MONTER ";MLP;" MAIL 
LES, SOIT ";LP;" CMS." 

94.0 PRINT ‘'-TRICOTER ";RHE;" RR 
NGS.SOrr ";HE;" cms, en AUGMENTRN 
T REGULIEREMENT CHR-OUE COTE DE 
";R;" MAILLES." 

380 LET O-(MLP4. (A»S) ) 

988 LET P«INT (0x2) 

9S0 PRINT "-A ";ME;" CMS,RRBRTT 
RE LES ";O;" MAIL- LES RESTANTES 

980 COPY 
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DATE NOM DU PROGRAMME : . PAGE 

TRtcor /t 

IDENTIFICATION des VARIABLES 

/ , / /ORIGINy' / 

/ ÿ / TYPE (*) / /^/^XoNG./ OBSERVATIONS 

/ pj / /'^/vv / 


\JA(?iABL.e 

B 

1 




Mb de maiKes pouK da crvns 


UAfRiAete 

B 

1 




K/b de tnoivjS pot»*- -da OMS 


i/AlRlABLE’ 

B 

D 




h/b de mallks, pour -d. cm 

ini 

l'AaiAgue 

B 

B 




^/b de WiTq[S pou*' -d cm 


l/A>iiAQLe 

B 

1 




latri^euy- dos ou det/an^ 


i/Af}iA8Le 

B 

1 



M 

larq(tv*~ 6 la porfr/tre. 

I^HI 

l/AfiiAQue 

B 

1 




Hau/iut- Sous le. lotos 


VAdiABLE 

B 

1 




Houfeut' folate, doS ou dtuatih 


{/aaIabis 

B 

B 




K/b de mailUs latqcur dos ou dt\JQrir 

HiLiftiP 

l/AaiAQLE 

B 

B 




KJh de mpilUs largeur pdhrin^ 


VAR.I/iBLe’ 

B 

B 




K/b KOfings haultut sous. bras 


l/AdÀA BlE 

B 

B 




Kfb inargs bou/ëur fo/o/e dos ou de-uanh 

HH 

^AfÙABLB 

B 

B 




îiiminu'lions ^rf\vT\ar\chure.s de, chogce 

Ml 


1 

1 




cûfe.' 


i/aaIablb 

B 

1 




larqeur pdcjrtel" 


i/AniAate 

B 

B 




largeur ô (’epou/e 


i^AmiAgus' 

B 

B 




HauTexjf épaula. 


i/AftiASLe 

B 

B 




Houleot Totale. 


i/AiziA6Le 

B 

B 




K/b de mqjlles poii^nef- 

HH 

^/AAiAsce 

1 

B 




^/b de mailles à 1' e-poule. 

im 

VARÎA&Le 

1 

B 




K/b de rûngs 5 l'épaule. 


UAZlAecS 

1 

B 




K/h de i^ngs hau/èur tohale. 


’) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.l. 
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ETUDES POUR ZI81 


DATE 

NOM DU PROGRAMME : 

TfflCoT 

PAGE 


IDENTIFICATION 

des 

VARIABLES 



1 /ORIG'NEy 

' / 



/ i / 

rrrri 

/ 



hi 

TYPEI*) / 

mi / 

OBSERVATIONS 




II 


AuqmcrvhQh'on manche de chûqo-e. 

corc 


N/ambrt de ranqS ervire l’^pai/Ze 


eh le to/Qj doi. ou àtuanh. 


Cmi entre l'épaule, eh le total 


doi ou de.ua.n^'- 


K/ombfe de. r^oalHes â ) ’epaule. 


de la manche. 


Membre, de nriailles d robaître de 


cha£)uc, c^é de h nvanche . 
8aocle PoR / M6XT 



(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du PSI 
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Ravitaillement en mer 


Un supertanker attend son ravitaillement que vous allez lui 
envoyer de votre avion. 

En tapant sur n’importe quelle touche (sauf BREAK), un para¬ 
chute descendra les précieux colis. 

Mais attention, il peut y avoir du vent. Cela sera indiqué 
à gauche sur l'écran : à vous de prévoir la trajectoire 
corrigée. 

Si vous n'êtes pas un bon viseur, adieu les colis !... 

A chaque lancée, il y a un affichage des résultats, puis le 
jeu repart tout seul. 
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10 REM RfiUITRILLEMENT EN MER 

se REM - 

PaO 
Ga0 

B«(3,5) 

Bi(1)a” 

BÉ (S) a" 
r{(&,5) 

(!)=•• 


30 LET 
4.0 LET 
90 DIM 
100 LET 
110 LET 
190 DIM 
S00 LET 



aie LET Bèca) = 

390 DIM Pi(8,S) 

300 LET P* (1) a- n •• 

310 LET P* (S) a- « •• 

380 REM - 

330 REM JEU 

4-4.0 LET YPa0 

4.S0 LET XPa0 

4.60 LET FLRGaO 

470 LET Xal 

430 OOSUB 8000 

490 PRINT BT 0,88;" " 

500 PRINT BT 1,88; •• 

508 IP Xaa8 THEN GOTO 1800 
510 PRINT BT 0,X;BJ(1) 

580 PRINT BT l,X;Bi(a) 

530 LET XaX+1 

550 IP Xaa8 THEN GOTO 1800 
560 IP INKEY$ <>••■• THEN LET FLBG 

al 

570 IP PLBGa0 THEN GOTO 510 
580 IP XPa0 THEN LET XPaX 
590 PRINT BT YP.XP;" 

595 PRINT BT YP + 1,XP; '' " 

597 IP XP>a6 THEN GOTO 1700 

800 LET YPaYP4l 

605 LET XPaXP+U 

610 PRINT BT YP,XP;P*(1) 

680 PRINT BT YP+1,XP;P*(8) 

630 IP YPaa0 THEN GOTO 1400 

1000 GOTO 508 

1800 IP PLBGaO THEN GOTO 440 

1810 GOTO 880 

1380 REM - 

1390 REM GBGNE OU PERDU ..7 

1400 LET PaP^-l 

1408 IP XP>XB RND XP<XB+4 THEN 6 

OTO 1500 

1403 REM - 

1404 REM PERDU... 

1405 LET XPaXP+l 

1410 POR lal TO 4 

1480 PLOT (XP»a)-I, t CaO-VP) *8) -I 

- (xp#a)+1,(tao-YP)*8)-I 

(xp*a)-i»8,t tao-YP)»8) 


(xp»a) 4-1*8, ( tao-YP) *8) 


1430 PLOT 
1440 PLOT 

-I 

1450 PLOT 
-I 

1460 NEXT I 
1470 GOTO 1600 

1480 REM - 

1490 REM GBGNE... 

1500 LET GaG*! 

1510 GOTO 1600 

1530 REM - 

1590 REM RE8ULTBTS 

1600 PRINT BT 'Ç 

1610 PRINT BT la,10;"GBGNE ;"; O 

1680 POR lal TO 10O 

1630 NEXT I 

1640 CLS 

1650 GOTO 440 

1680 REM - 

1690 REM HORS DE L"ECRBN 
1700 LET PaP*! 

1710 GOTO 1600 

1980 REM- ZXZiZZr, - 

1990 REM fiPPlCHE LE BBTEBU 
8000 POR laB TO 89 
aolo PRINT BT ae,i;" 

8030 PRINT BT 81,1;"-" 

8030 NEXT I 

8040 LET XBaRND*a4 

8050 PRINT BT a0,XB;Bfri) 

8060 PRINT BT 81,XB;B$ tS) 

8070 LET UaINT (RND*a )yS 
2075 IP UaO THEN GOTO 8090 
8080 PRINT RT^IO.O;"UENT" 

8090 POR lal TO 50 
8100 NE>a- I _ „ 

8110 PRINT BT 10,0; 

8180 RETURN 
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LE PROGRAMME 


Lignes 30 à 310 

On assigne respectivement, aux variables B$, A$ et P$, les 
dessins des bateaux, avions et parachutes. 

Lignes 440 à 1210 

On commence par initialiser les coordonnées de l'avion et 
du parachute, puis on affiche le bateau en utilisant le sous- 
programme des lignes 2050 à 2120. 

Ce programme principal (lignes 440 à 1210) boucle sur 
lui-même pour afficher, sans interruption, l'avion et le 
parachute, tout en les déplaçant pour donner cet effet de 
mouvement. 

Tant qu'une touche n'est pas appuyée (ligne 560), le para¬ 
chute n'apparaît pas. Dans le cas contraire, la variable FLAG=1 
et le parachute commence sa descente jusqu'à la surface de 
1'eau. 

Quand le parachute est au niveau de l'eau (YP=20 en ligne 630) 
on saute au programme en ligne 1400 pour vérifier que le para¬ 
chute est oui ou non sur le bateau. 

Lignes 1400 à 1402 

On incrémente le compteur de parties jouées P. Si le para¬ 
chute est tombé sur le bateau, on va à la ligne 1500 (programme 
"GAGNE"), sinon, on continue (programme "PERDU"). 

Lignes 1405 à 1470 

Le parachute n'étant pas arrivé sur le bateau, on dessine le 
jaillissement de l'eau provoqué par la chute. 

Lignes 1500 à 1510 

Le parachute étant sur le bateau, on incrémente le nombre de 
parties gagnées. 

Lignes 1600 à 1650 

On affiche, au milieu de l'écran, le nombre de parties 
gagnées avant de retourner à un nouvel essai. 

Lignes 1700 à 1710 

Si le parachute est sorti de l'écran, on incrémente simple¬ 
ment le nombre de parties jouées. 


112 



ETUVES POUR ZX81 


NOM DU PROGRAMME 





uL^MeA/r mbr 



IDENTIFICATION des VARIABLES 


/origine/ / 


OBSERVATIONS 


icssiVt dfi. 1 

r QU Ion 

iôSS/n du 

betli-Qü 


si on iQcht, le. 

parû c. hufc. 

de 

parti'eB £^û ne es 

Boucle 

Fof? //uexT 

A/ombre Ole, 

par ries 

îiessin du» porachufe 

Force, du i/eoh 

Coordonnées 

de l'Quion 

coordonnées 

du bo/ëûü 

^ coordonnées 



Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P S I 
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Biorythme 


Ce programme permet la représentation graphique du biorythme 
de chacun pour un mois donné. 

Les courbes obtenues dessinent les trois principaux cycles 
qui influencent la vie humaine, avec leurs périodes positives 
et négatives : le cycle physique de 23 jours, le cycle 
émotionnel de 28 jours et le cycle intellectuel de 31 jours. 

Ces données, tout-à-fait sérieuses, ont fait l'objet de 
longues études statistiques. 

Pendant les périodes positives, notre énergie se libère et 
nous sommes actifs. Pendant les périodes négatives, notre 
organisme récupère ses forces. Aux points zéro des courbes, 
nous vivons des jours critiques. 

Ce ne sont pas forcément des jours dangereux, mais ce sont 
sûrement des jours où il faudra redoubler d'attention. Une 
grande prudence est nécessaire pendant les jours critiques 
doubles (deux courbes aux points zéro), et il est vivement 
conseillé de ne pas sortir de chez soi les jour.s critiques 
triples... 

Pour calculer votre biorythme, le ZX81 demandera successive¬ 
ment le prénom (sur 6 lettres maximum), le jour de naissance, 
puis le mois et l'année, le mois du biorythme souhaité, puis 
l'année. Toutes ces données sont à entrer en tapant sur NEHLINE. 

Le biorythme se dessine alors sur l'écran. 

Les possesseurs d'imprimante pourront en garder une recopie 
d'écran en utilisant l'instruction COPY. 
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lOS REM BIORYTHME 

se REM - 

se DIM Z$(6) 
lee DIM M(is) 
lie LET M Cl) =31 
lae UET Mca>=a8 

13e LET M(3)=31 
14-0 LET M(4.)=3e 
15B LET M(S)=31 
lee LET MC6)=3e 
17e LET MC7)«31 
lee LET M<e)=3i 
ise LET M(9)=3e 
aee let m(10)=31 
aie LET M(ll)=30 
sae LET MC1&)=31 
330 LET R*0 

335 REM - 

236 REM SRISIE BIORYTHME 
a4.e PRINT RT 19,e;“.|>" 
ase PRINT RT 20,0; 

260 PRINT RT 21,0; "T •’ 

310 PRINT RT 18,0; "PRENOM ?" 

330 INPUT Z« 

330 PRINT HT 18,0;"JOUR DE NRI6 
SHNCE ?" 

34.0 INPUT T 

350 PRINT RT 18,0;"MOIS DE NRIS 
SHNCE ?" 

360 INPUT S 

370 PRINT HT 18,0;"RN,N5E DE NRI 
SSRNCE ?" 

380 INPUT U 

390 PRINT RT 18,0;"MOIS DU BIOR 
YTHME ? " 

400 INPUT U 

410 PRINT RT 18,0;"RNNEE DU BIO 
RYTHME ?" 

430 INPUT U 
430 CLS 

450 REM CRLCUL DU NOMBRE DE 
JOURS UECUS 

S00 ir S>2 THEN GOTO 550 

510 IF S=2 RND T«29 THEN GOTO 5 

S0 

520 IF INT C(U-1900)✓4)<>(U-19e 
0) /4 THEN GOTO 550 
530 LET R=1 
550 LET R-R+M(S)-T 
560 IF 5=12 THEN GOTO 600 
570 FOR X=S+1 TO 12 
580 LET R=R+MCX) 

590 NEXT X 

600 IF U-U<2 THEN GOTO 650 
610 FOR X=U-1899 TO U-19ei 
620 IF INT <X/'4) =X/'4 THEN LET R 
=R + 1 

630 LET R=R+366 
640 NEXT X 

650 IF U=1 THEN GOTO 700 
660 FOR X=1 TO U-1 
670 LET R-R+MCX) 

680 NEXT X 

700 IF U>2 RND INT t(U-1900)/4) 
= (u-ieee>./4 then let r=r+i 

710 REM - 

720 REM EDI TION DU BIORYTH ME 
800 PRINT "HlBBaiBaBBHaB ";z«; 
•• DU ";u;" "7 u+1900 
310 PRINT 
820 FOR 1=1 TO 10 
330 PRINT RT 1,0;"+" 

840 PRINT HT 1+11,0,"-" 

S50 NEXT I 

860 PRINT RT 11,0;"0" 

870 FOR 1=1 TO 31 
380 PRINT RT 11,1;"-" 

890 NEXT 1 
1800 LET R=MCUi 
1010 LET B=0 
1020 LET B=B+1 

1030 LET C=1NT (ie«SZN ((B+R)•(2 

*Ply23))+ll) _ _ 

1040 LET D»INT C10+SIN ((B+R>«(2 

*PIy28))+11) _ 

1050 LET E=INT (ie»SIN CCB+R)»(2 
+PI/33))+11) 

1100 PRINT RT C,B;"+" 

1110 PRINT RT D,B;"+" 

1120 PRINT RT E,B;"0" 

1150 IF B<R THEN GOTO 1020 
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LE PROGRAMME 

Lignes 90 à 230 

Après dimensionnement du tableau M(), on y place le nombre 
de jours de chaque mois. 

EXEMPLE : janvier (1er mois de 31 jours) : M(l) = 31. 

Lignes 236 à 430 

On saisit, dans ces lignes, tous les renseignements néces¬ 
saires à l'élaboration du biorythme. Pour préciser l'endroit 
où sont tapés ces renseignements, les lignes 240 à 260 
dessinent une flèche désignant le bas de l'écran. 

Lignes 450 à 700 

On calcule, dans ces lignes, le nombre de jours vécus par 
l'intéressé, en tenant compte des années bissextiles évidemment. 

Lignes 800 à 1150 

Avec les renseignements collectés ci-dessus, on peut éditer 
le biorythme. Après les axes, on dessine, point par point, les 
trois courbes en calculant leurs ordonnées par une fonction 
sinus. 

Leurs abcisses correspondent aux numéros des jours concernés. 
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DATE 

NOM DU PROGRAMME : 

a'/ûffVTHME- 

PAGE 

/ 


IDENTIFICATION 

des 

VARIABLES 

/ U, / 

/origine / 

/ 


s 

/*i / 

/fi / 

f U Tl 

/ 


TYPE!*) / /§LI&/com./ 

/.b § §§/ / 

OBSERVATIONS 





COt^PTEUR 


i/fiRÎfiBl-B 


{/ARiABLe 


{/ARiAeue 


iK/ùice 


taslepu 




l/AfÛA6Le 

UARJAQi-S 

[/ARAAeLB 

i^ARIABLe 

VAtHAei.e’ 


iNX>ic e 


TA^uePu 


■NI 

il 

ni 

I 


II 

II 



tJot>nb\rA. cke. Jours du mois ô 


erudier 


K/ombre, de Jours déjo affichées 


Coordono^es du panK “ PhÿSic^ue. '' 


Sur la courbe. 


Cûordonneei> du point '' £motione.l '' 
Sur la courbe. 

Coortionoée.S du pdiot" " inte.lle.ch " 


Sur la courbe. 


Boucle PoR/(Ug-yr de l'edi'hi’on 
du bior(j^'J'hme. 


Contient le nombre de Jours par mois 


K/ombre de Jours uécus 
Mois de Moisson oe 
Jour de naissance 


annee de noissonCe 
Hols du biovi^fhnrie 


annce du bîort^ fhme 


Boucle PoR / lu^Byt pour le 


calcul du nombre de Jours vécus . 


prénom. 


Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite^^Editions du P.S.I. 
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Macro-lettres 


Pour créer la banderole en gros caractères du texte que vous 
voulez, utilisez le programme présenté ici. 

Il suffira, après avoir tapé RUN, de donner votre message en 
bas de 1'écran. 

Votre ZX81, possédant sa matrice de caractères en mémoire 
morte (R0M8K), il est possible d'y accéder facilement. 

Une matrice de caractères est ni plus ni moins que 1'image 
informatique des caractères dessinés sur l'écran. Chaque 
point est défini dans la mémoire par des 1 et des 0, le 1 
correspondant à un point, le 0 à l'absence de point.- 


c 

M 

P 


011110 

100001 

100000 

100000 

100001 

011110 


1111 
1 1 
1 
1 


100001 

110011 

101101 

100001 

100001 

100001 


1 1 
11 11 
1 11 1 
1 1 
1 1 
1 1 


11111 
1 1 
1 1 
11111 
1 
1 


111110 

100001 

100001 

111110 

100000 

100000 
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LE PROGRAMME 


Ligne 30 

On saisit, au clavier, le message à imprimer sur la bande 
papier. Ce message peut avoir n'importe quelle longueur. Pour 
gagner du temps dans les calculs qui vont suivre, on passe en 
mode rapide (FAST). 

Lignes 60 à 160 

Pour générer les caractères, on utilise trois boucles 
imbriquées. 

La première boucle prélève un à un les caractères du messa¬ 
ge. La deuxième boucle prélève les sept lignes de la matrice 
de caractères. La troisième boucle décompose les huit points 
de chaque ligne. 

La matrice de caractères du ZX81, étant placée dans la 
mémoire morte (ROM), il est inutile de récréer l'image de ces 
caractères. Par des PEEK dans cette mémoire (la matrice 
commence à l'adresse 7680), on extrait chaque point à imprimer, 
en sachant que zéro correspond à un point blanc, et un à un 
point noir. Chaque point est placé dans le tableau B$ et 
agrandi 5 fois. 

On utilise un tableau pour obtenir des caractères plus 
grands que l'écran, ce qui est possible sur le papier, 
celui-ci étant infini sur sa longueur ! 

On retourne bien sûr ces caractères de 270 degrés pour qu'ils 
soient lisibles, c'est-à-dire non inversés (comme dans une 
glace) et écrits de gauche à droite. 

Lignes 190 à 260 

Le tableau B$ contenant un caractère, on l'imprime sur la 
bande papier par l'instruction LPRINT. 

Dès quc tous les caractères sont imprimés, on revient en 
mode lent (SLOW). 
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IDENTIFICATION des VARIABLES 


/ORIGINE / / 




cA/oyc^/ 


OBSERVATIONS 


Hl 

Hi 


HesSQt^e. 

a écrire. 

Lattre, â 

€c ri re 

Massotje 

Q écrire 

Sodcle 

rof? /K/e^T 

Boude. 

Fofi* / ^/e■xr 

Boude 

For / nE^T 

H a In ce. du 

CdrQcHére ô inrvprimer 

Soucie 

PoR / ^;exT 

Boucle 

TOR / KJëXT 



(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.i. 
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Fichier téléphone 


Pourquoi ne pas simplifier votre annuaire et vous réserver 
quelques numéros de téléphone ? 

Alors, voici un petit fichier qui vous permettra de garder 
les numéros d'une vingtaine de personnes. 


PREMIERE UTILISATION : 

Après avoir tapé RUN, vingt lignes s'affichent. 

L'ordinateur vous demande le numéro de la ligne à remplir, 
puis le nom, puis le numéro de téléphone. Pour modifier une 
ligne, il faudra réécrire sur cette même ligne. Pour supprimer 
une ligne entièrement ou non, il faudra remplacer ce qui est 
écrit par des espaces. 

Si vous voulez sauvegarder votre fichier sur cassette, vous 
donnez n'importe quel numéro, puis vous marquez "FIN" comme 
nom. 

Le message suivant apparaît : 

"MAGNETO O.K ? TAPEZ SUR UNE TOUCHE" 

Vous devez mettre votre magnétophone en position d'engistre- 
ment. Dès qu'il est prêt, vous tapez sur n'importe quelle 
touche et la sauvegarde complète du programme et du contenu 
des tableaux s'effectue. 


DEUXIEME ET AUTRES UTILISATIONS : 

Quand vous chargez à nouveau votre "programme et tableaux", 
le message "GOTO 50" apparaît. N'oubliez pas de le taper, 
sinon vous perdriez toutes les informations de votre fichier. 
En effet, la commande RUN ferait repartir le programme à zéro 
en vidant les tableaux. 

Bien sûr, vous pouvez avoir un listing sur papier de vos 
numéros en faisant BREAK puis COPY. Ne jamais utiliser RUN 
pour repartir, mais "GOTO 50". 
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10 REM FICHIER TELEPHONIQUE 

ao REM - 

30 DIM T«(S0,9> 

4.0 DIH N» (80,10) 

50 CLS 

55 PRINT TRB 8; “ 

60 FOR 1=1 TO 80 

70 PRINT I;TRB 3; "N* ( I) ; " - 

/ ï ^ ^ ^ _ 

80 NEXT I 

90 PRINT RT 81,0;"NUMERO" 

100 INPUT N 

110 PRINT RT 81,0;"NOM (FINsBRU 
VEGRRDE) 

180 INPUT R* 

130 IF Rà»"FlN" TMEN tSOTO 800 
140 PRI^ RT 81,0; "TELEPHONE 

150 INPUT B» 

160 LET N«(N)=R« 

170 LET T*(N)=B$ 

180 GOTO 50 

800 PRINT RT 81,0;"HRGNETO. O.K 
TRPEZ SUR 1 TOUCHE" 

310 IF INKEY*="" TMEN GOTO 810 
380 PRINT RT ai,0;"TRPER ""GOTO 
50"" 

330 SRUE "TEL" 


1 

-THEODORE 

sa 

- > 

2 

-JOSEPHINE 


3 

-MICHKP 

- >1 

4 

-FLORR 

- >1 

JÇ 


- > 

8 


- > 



- > 

6 


- > 

9 

— 

- > 

10 

— 

- > 

11 


- > 

13 

.. 

- > 

13 

* 

- > 

14 

— 

- > 

15 

.. 

- > 

16 


- > 

17 


- > 

18 

— 

- > 

19 


- > 

30 


- > 

TAPER “GOTO 50" 




1 

-JOSEPHINE 

- > 1S3.03.34^ 

a 

-MOUSTRPHR 

->345.23*4.1 

3 

-THEODORE 

- > ses • *93.55 

4 

-FLORR 

->654.53.46 

5 


- > 

6 

— 

- > 

7 

— 

- > 

8 

... 

- > 

9 

— 

- > 

10 

.. 

- > 

11 

.. 

- > 

13 

.. 

- > 

13 


- > 

14 

— 

- > 

15 

— 

- > 

IS 

.. 

- > 

17 


- > 

18 

— 

- > 

19 

— 

- > 

30 

.. 

- > 

NUMERO 



1 

* - «lŒEBBDS 

-THEODORE ->123. 

8 

-JOSEPHINE 

->345. 

3 

-MICMKfl 

->675.' 

4 

-FLORA 

->654.1 

5 


- > 

6 

— 

- > 

7 


- > 

3 

<- 

- > 

9 


- > 

10 


- > 

11 

— 

- > 

18 


- > 

13 


- > 

14 


- > 

IS 


- > 

18 

— 

- > 

17 

— 

- > 

18 

.. 

- > 

19 

.. 

- > 

30 - 

MAGNETO. O.K? 

— > 



TAPEZ SUR 1 TOUCHE 
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LE PROGRAMME 


Lignes 30 et 40 

Ces deux lignes dimensionnent les tableaux des noms (N$) et 
des téléphones (T$). On limite le nombre d'éléments à 20, ce 
qui correspond au nombre de lignes sur l'écran (en laissant 
toutefois un peu de place pour la saisie du fichier !). 

Le dimensionnement de tableaux (instruction DIM) efface le 
contenu des tableaux portant les mêmes noms. 

Après chargement d'un programme contenant déjà des éléments 
des tableaux, il faudra sauter cette étape et passer directe¬ 
ment aux lignes suivantes. 

La commande de lancement ne sera plus RUN, mais "GOTO 50". 
Lignes 50 à 180 

Après effacement de l'écran, on affiche, un à un, les élé¬ 
ments du fichier. Puis l'on saisit le numéro de 1 ' "enregistre¬ 
ment" que l'on veut modifier ; puis le nom et, enfin, son 
numéro de téléphone. 

Après rangement de ces éléments dans les deux tableaux, on 
retourne en ligne 50 pour afficher de nouveau le fichier. 

Lignes 200 à 230 

Si l'on tape le mot "FIN" à la place d'un nom, le test de la 
ligne 130 renvoie à la partie sauvegarde du programme. 

Pour vous permettre de placer votre magnétophone en mode 
enregistrement, on affiche un message d'attente et l'on teste 
si une touche est enfoncée par la fonction INKEY$. 

Une sauvegarde de programme enregistre aussi le contenu de 
l'écran et le restitue au moment du chargement. 

Pour que vous n'oubliez pas de taper "GOTO 50" au lieu de 
RUN, lors d'un chargement ultérieur, on envoie ce message à 
1'écran. 
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IDENTIFICATION des VARIABLES 


'ORIGINE , 


' 6 ' 

! 


TYPE (*) 




u/JRiflet-e" 


U/JRjRett W 



nA,C) 


OBSERVATIONS 


Kloim a SQi'sir- 


K/uiooero c)e +éiephone 


q Sqrsîf- 


Soüclc, ï-OR /A/^xT pooK 


l'e^îHon du tableai-» 


fJumejra dans )ê -f-ic^le,r- 


Tableau des noms 


Tableau c/es numéros de 



Légende ; aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.I 
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Gestion de fichier 


Ce programme permet la gestion et la sauvegarde, sur cassette, 
d'un fichier d'une centaine d'articles. 

La première fois gue vous utiliserez ce programme, vous tapez 
RUN pour le lancer. Mais, dès gu'un article sera rentré en 
mémoire, et si vous interrompez l'exécution par BREAK ou 
sauvegarde et arrêt d'exécution pour la reprendre ensuite, il 
faudra taper GOTO 500. En effet, RUN réinitialisant à vide les 
tableaux définis par DIM, toute information précédemment 
rentrée serait perdue. 

Au lancement du programme (la 1ère ou les autres fois), un 
MENU s'affiche, signalant toutes les possibilités de travail : 
création, consultation, suppression, listing, édition, sauve¬ 
garde. Pour l'obtenir, vous devez taper le numéro du travail 
demandé : 1, 2, 3, 4, 5 ou 6. 


CREATION 

Vous pouvez rentrer le nom, le prénom, la rue (adresse), le 
code postal et la ville d'un individu. 

Après avoir écrit chague renseignement, tapez sur NEWLINE. 
Après avoir rentré le nom, le ZX81 trie son fichier, rangeant 
le nom par ordre alphabétigue, d'où, parfois, le message 
d'attente : "JE TRIE". 


TRES IMPORTANT : Il ne faut jamais utiliser la touche espace 
dans les données d'un article : 


Exemple : 


DE BIZET faux 

25 AV DE LA GARE faux 


En effet, le ZX81 considérera la valeur de cette touche comme 
un BREAK et arrêtera l'exécution du programme. Il conviendra de 
donc d'utiliser des points "." comme séparateurs. 

Exemple : DE.BIZET 

25.AV.DE.LA.GARE 
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Au cas où toutefois, à tout moment de l'exécution, vous 
tapez BREAK, vous pouvez repartir en tapant GOTO 500 (et 
surtout pas RUN). Si vous aviez rentré le nom de l'article, 
celui-ci sera déjà enregistré en mémoire, mais le reste de 
l'article sera vide. 

Comme l'option modification n'existe pas, il faudra suppri¬ 
mer 1'article et en créer un autre ; même chose pour toute 
autre modification sur l'adresse. 

Tous les articles se comparent sur le nom ; quand vous créez 
un article qui existe déjà, un message "EXISTE DEJA" apparaît. 

A la fin de l'affichage complet d'une création, le ZX81 vous 
propose une autre création ; si vous ne la souhaitez pas, 
retapez sur NEWLINE et vous retournerez au MENU. La démarche 
sera la même pour la SUPPRESSION et la CONSULTATION. 


CONSULTATION 

Après avoir donné un nom, la fiche entière apparaît. Si votre 
article n'a pas été créé, un message "INEXISTANT" vous répond. 


SUPPRESSION 

La suppression d'un article s'effectue après en avoir rentré 
le nom. Si votre article n'a pas été créé, un message 
"INEXISTANT" apparaît, tout comme pour la consultation. 


LISTING 

Il s'agit du listing sur l'écran en une ou plusieurs pages 
du fichier (nom et prénom seulement) par ordre alphabétique. 


EDITION 

Vous obtiendrez, sur papier, tous les articles complets du 
fichier. 


SAUVEGARDE 

Cela permet la sauvegarde du fichier sur cassette (remplis¬ 
sage des tableaux). La marche à suivre est indiquée sur 
1'écran. 

En cas de demande de sauvegarde involontaire, taper BREAK, 
puis GOTO 500 pour repartir. 

Pour plus d'explications sur le procédé de la sauvegarde, 
lisez les explications du programme "FICHIER-TELEPHONE". 
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»-= LISTING FICHIER =-* 


rAPi 

AUGUSTE 

©ECHU 

NICOLE 

BONET 

SOPHIE 

CHRIS 

CHANTAL 

DATUl 

PAUL 

DAUDET 

LEON 

DIMO 

LOUIS 

DUPONT 

JEAN 

FOUGERES 

LEA 

GOL 

MARCEL 

ISTRES 

CLAUDE 

LALANDE 

DANIELE 

LION 

DAUID 

MENUI 

ALPHONSE 

NIHIL 

SEXTUS 

QLXUE 

ARMELLE 

RIUIERE 

LUC 

ROCHE 

DENISE 

SANTA 

YUES 

TRPEZ UNE 

TOUCHE POUR LA SUITE, 



SIMO 

TOLSTOÏ 

URSCO 

URLTER 


MRRTINE 

lORN 

LOUISE 

JORN 


TRPEZ UNE TOUCHE POUR LE HENU 





RPI 


ROND.POINT 
4.4. NANTES 


AUGUSTE 


BECHU 
LES.PINS 
53 LRURL 


NICOLE 


BONET SOPHIE 

3.RU.DE.LA.GARE 
es GRENOBLE 


CHANTAL 


PAUL 


CHRIS 
RUE.COLLY 
37 TOURS 

DATUl 

GARE 

62 PASO 


DAUDET LEON 

MOULIN 

13 MARSEILLE 

OIMO LOUIS 

PLACE.ROUGE 
35 RENNES 

DUPONT JEAN 

4.5 . BD . LAENNEC 
75 PARIS 

FOUGERES LEA 

RUE.UERTE 
35 OUICHEN 


GOL 
RUE.KENNEDY 
59 LILLE 


MARCEL 


ISTRES CLAUDE 

a.RUE.JEANNE.D.ARC 
75 PARIISS 

LALANDE DANIELE 

PLACE.BLEUE 
75 PARIS 

LION DAUID 

RUE.MONGE 
35 RENNES 


MENUI 
HLM. 3 
S0 


ALPHONSE 


MERU 


NIHIL 

LE.COLISEE 
ROME 


SE.XTUS 


OLIUE 
LA.GARE 
4.5 ORLEANS 


ARMELLE 


RIUIERE 
SP . 69 

RDA 


LUC 
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oMnkiiG-Rnnns a-àninPtL. 
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Aff/ch«<p 

I 

PQ»" / 


OOl 


a-2 

> 


nor> 
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LE PROGRAMME 


Lignes 1000 à 1140 

Le programme utilise une recherche dichotomique qui sert 
aussi bien à la création, à la consultation et à la suppression. 


Imaginons la recherche d'un mot dans un dictionnaire. On 
pourrait tout simplement le consulter de la première à la 
dernière page (METHODE SEQUENTIELLE). Mais cela risque d'être 
long, surtout si le mot commence par Z ! LA METHODE PAR 
DICHOTOMIE consiste à ouvrir le dictionnaire au milieu et à 
regarder si le mot trouvé est inférieur ou supérieur au mot 
recherché. Si le mot est inférieur, on prend la partie supé¬ 
rieure et on la partage en deux ; même chose si le mot est 
supérieur en ce qui concerne la partie inférieure. On repète 
le processus le nombre de fois nécessaire pour trouver le mot 
recherché. 

Ici, la variable I représente le pointeur inférieur, et la 
variable S, le pointeur supérieur (nombre de noms déjà saisis). 
Si S est inférieur à 1 ou I supérieur à 5, le nom est inexis¬ 
tant dans le fichier. On saute alors directement à la ligne 
1110 pour mettre Q=2, ce qui indique, au programme d'appel, 
que ce nom n'est pas dans le fichier. 

On attribue, à la variable M, le milieu du tableau en 
divisant par 2 la somme de I et de S (ligne 1040). Si le nom 
pointé dans le tableau est identique au nom recherché, on va 
en ligne 1130 pour mettre Q=l, ce qui indique que le nom est 
bien dans le fichier. 

Si l'article pointé est supérieur, on diminue le tableau par 
le haut (S=M-1). 

Dans le cas contraire, on diminue le tableau par le bas 
(I=M+1). 

Les autres lignes du programme sont facilement explicables 
en utilisant conjointement les organigrammes et les tableaux 
"identification des variables". 
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Exemple de recherche dichotomique sur un fichier de prénoms 


ft( ) 


N* 

PRÉWOM 

4 

ALAlV/ 

% 

AATHÜR 

3 

£Ric 

4 

/flfi/vcois 

s 

fRtDBRic 

6 

OEOR&ES 

> 

HENRI* 

8 

isneEiLf 

9 

JULES 

40 

ÛURNE 

44 

ODILE 

42 

PASCAL 

45 

RAYMOND 

<4 

SUZANtJe 

45 

THIERRV 

16 

ZoÉ 


On ncch«rch« Sf^nne 


N 


S fl = s 




I s 9 




y S * 46 y 


Ss46 


/ 


X I 43 
Mt41( 

5 < 4é 


144 




ETUDES POUR ZX81 




le 

ae 

30 

4.0 

S0 

60 

70 

80 

90 

100 

110 

4.80 

4.90 

S00 

510 

sa0 

530 

54.0 

1 " 

550 

560 

"f,!' 

550 

ma 3' 

590 


REM GESTION DE FICHIERS 

REM- 

DIM N*(100,10) 

DIM Pi(100,10) 

DXM R$(100,80) 

DIM ci(100,5) 

DIM Uÿ(100,80) 

DIM RidO) 

LET NBR-0 
LET M«1 
DIM Y$(80) 

REM- 

REM MENU 

CLS _ 

PRXNT TRB 10;--»-sMam= 
PR INT 

PR INT _ 

PRINT TRB 8; "1 

PRINT _ 

PRINT TRB 7; "8 BHBHIB 

PRINT _ 

PRINT TRB 7; “3 

PRINT _ 

PRINT TRB 9; ■■4. ■nSHBl 


610 PRINT 

680 PRINT TRB 9; "S 
630 PRINT 

64.0 PRINT TRB 7; "6 


^50 

660 

670 

880 

690 

700 

780 

90 

730 

74.0 

980 

990 

100O 

1010 

1080 

1030 

104-0 

1050 

1060 

1070 

1080 

1090 

IlOO 

lllO 

1180 

1130 

114-0 


PRINT 

PRINT 

PRINT 

PRINT TRB 8; "UOTRE CHOIX .• * 
IF INKEY*«“f‘ THEN GOTO 690 
UET C-CODE INKEY* 

IF C<89 OR 034- THEN GOTO t 


fMEN GOTO 6 


UET C»C-a7 
GOTO C*1000 

REM- 

REM RECHERCHE DICHOTOMIQUE 
LET I-l 
LET SbNBR 

IF 6(1 THEN GOTO 1110 

IF I>S THEN GOTO 1110 

LET M-INT ((I.»-S)/8) 

IF N«(M)-R« THEN GOTO 1130 

IF Ni(M)>Ri THEN GOTO 1090 

LET I-M-l-1 

GOTO 1080 

LET S=M-1 

GOTO 1080 

LET 0«8 

RETURN 

LET 0»1 

RETURN 
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IISO REM - 

lise REM SAISIE CRRRCrrERE PAR 
CARACTERE 
1S0O LET Xml 
laai LET V*»"** 
laes LET xi-INKEY$ 

1210 IF X*«"" THEN GOTO 1208 
1220 IF CODE X*k 118 THEN RETURN 
1228 IF CODE Xi-llO OR CODE X0>1 
14- THEN GOTO 1300 
1230 IF Xb 21 THEN GOTO 1205 
1235 LET Y*(X TQ X)aX« 

124.0 PR INT X«; 

1250 LET X>X4-1 

1260 GOTO 1205 

1300 IF X>1 THEN GOTO 1205 

1310 LET X»X-1 

1320 PRINT RT Y,10+X;" 

1330 PRINT AT Y,10+X; 

134.0 LET Y* IX TÔ X)*" '■ 

1350 GOTO 1205 

1960 REM - 

1990 REM CREATION 
2000 CLS 

2010 PRINT TRB lO; 

2020 PRINT AT 6,1; 

2030 LET Y>e 
204.0 GOSUB 1200 

2050 IF CODE Ytae THEN GOTO 500 
2060 LET R«-Y* 

2100 GOSUB 1O00 
2110 IF 0-1 THEN GOTO 2700 
2120 PRINT AT 21,10;"JE TRIE" 
2130 IF NBA-O THEN GOTO 2150 
214.0 IF N»(M) <Rt THEN LET M-M + 1 
2150 LET NBA-NBA+1 
2160 IF M-NBA THEN GOTO 2225 
2200 FOR JbNBA TO M-t-l STEP -1 
2210 LET N*(J)-N*1J-1) 
piIJ)-P»IJ-1) 

Ai IJ>-Ai(J-l> 
ci (J) -ci (J-1) 

Ui(J)-U{(J-1) 

J 

2225 PRINT AT 21,10;" 

2230 LET Ni(M)-Ri 
224-0 PRINT RT B,i;"S 
2250 LET Y-B 
2260 GOSUB 1200 
2270 LET P«(M)-Y* 

2280 PRINT AT 10,1; 

2290 LET Y-IO 
2300 GOSUB 1200 
2310 LET A»(M)-Y« 

2320 PRINT AT 12,1; 

2330 LET Y-12 
2340 GOSUB 1200 
2350 LET Ci(M)-Y« 

2360 PRINT AT 14,1;"| 

2370 LET Y-14 
2380 GOSUB 1200 
2390 LET Ui(M>-Y» 

2400 GOTO 2000 

2700 PRINT RT 21,4;Ri;" EXISTE D 
E JA" 

2710 IF INKEYfi 
2720 GOTO 2000 


2212 LET 
2214 LET 
2216 LET 
2218 LET 
2220 NEXT 


THEN GOTO 2710 
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4-900 REM- 

4-990 REM LISTING 

5000 CL3 

S0OS LET L-O 

5010 FOR I«1 TO NBR 

5OS0 LET L>=L4-1 

5030 IF L<a0 THEN GOTO 5050 

50*0 PRINT 

50*1 PRINT "TRPEZ UNE TOUCHE POU 
R Lfl SUITE" 

50*a IF INKEY$="" THEN GOTO 50*8 
50** CLS 
50*6 LET L-O 

5050 PRINT N*(I);" "jP^d) 

5060 NEXT I 
5070 PRINT 

5000 PRINT “TRPEZ UNE TOUCHE POU 
R LE MENU" 

5090 IF INKEY$*"" THEN GOTO 5090 
5100 GOTO 500 

5900 REM - 

5990 REM EDITION 
5000 CLS 

6010 LPRINT TRB 5;"*-= LISTING F 

XCHIER 

5015 LPRINT 

SOaO FOR I-l TO NBR 

6030 LPRINT N*tl);" ••;P*<I) 

60*0 LPRINT R«tl) 

6050 LPRINT Citl);" ";U*(I) 

6060 LPRINT 
6070 NEXT I 
6080 GOTO 500 

6900 REM - 

6990 REM SRUUEGRRDE 
7000 CLS 

7010 PRINT TRB lO; “HBHHISBaSB" 
7080 PRINT 

7030 PRINT “ OURND UOTRE HRGNETO 
PHONE" 

70*0 PRINT " EST EN POSITION ENR 
EGISTREMENT" 

7050 PRINT " TRPER SUR UNE TOUCH 
E POUR" 

7060 PRINT " LR SRUUEGRRDE DE UO 
TRE FICHIER" 

7070 IF INKEY*-"" THEN GOTO 7070 
7000 CLS 

7090 FOR lal TO 16 

7100 PRINT TRB 1;"TRPEZ ""GOTO B 
00 . 

7110 NEXT I 
7180 PRINT 

7130 PRINT "ET SURTOUT PRS ""RUN 
71*0 SRUE "FICHIER" 
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DATE 

NOM DU PROGRAMME : 

c-esMot^ 

JbÊT TlCHIÊf? 

PAGE 

•^/2. 


IDENTIFICATION des 

VARIABLES 


/ i / 

/origine/ / 



/J / 
/ / 

TYPE!*) / /iL/^/LONG./ 

/sl&J $/ é/ / 

/S’/S/x/ÿ/ / 

/cjAyc%3y / 

OBSERVATIONS 





TfieuEBu 

TfietEfïU 


AlCrÜt. LLPCrb 

— 

l//iAtftScE' 


{/^AiSSLE" 



I 

Q 

I 

I 


II 

II 

II 

II 

II 

II 




II 

II 

II 



Tfibiexxo des odt^esses 


chaV de (option (de ^ 

Tableau des codes pashaux 
polnhejur de la pa*^tie inTtneure 


du tableau des noms dans Ici 


recherche, olichofômi'que 


âoucle T=^oR / /ue'xT 
Nombre^ de, l/c^nes Q^/chees 
Sur- /'écran dans / dphdn (l'shcK^- 


Mi'l('eu do tableau des noms 
dans la necherche dicholbmic^ue 
^/onnfare de noms dans le 


,t'/ohi’er' . 

Tableau des noms 
tablecLu des prénoms 
Si CS, =,d. le nom» cherche evi'she 
3 q =2 le nom cherché n'cxdfë pas 
Mom Q brouv/er- dans le tableau 


dans h necherche cl<chôfe>mi<que . 


Poinleur- de la partie supenevre 


du tableau des nom^S dans 


la recherche dichoromique . 


Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^^Editions du P.S I. 
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IDENTIFICATION des VARIABLES 


/OH^ / 




'ùAyo%7 


OBSERVATIONS 


I 

I 

I 

I 

II 
I 
I 
I 
I 
I 
I 
I 
I 

I 

I 

I 

I 

I 

I 


P os! hbr» 

àu pp-ochQiVt caractère. 

à affichejr dans 

la Saisie. 

CQract&re. 

pat- caractère. 

CdrQctêjre. 

Saisi 

Ou cJai/iejr 


de- la 

l/r^De e.n Cours 

dans la 

Sqi’sife 

cat-Qcfêye. par 

Conacfére. • 

Uarlahit. 

tampon 

de la Saisie. 

OQv-QC tO~G. par' 

caractère. • 



(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(^Editions du P.S.I. 
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Addition 


Finis les ardoises et les cahiers d'essai pour le calcul 
mental ! Ce programme d'addition va permettre à vos enfants 
un entraînement efficace avec un correcteur patient qui ne se 
fâchera jamais. 


A la première utilisation du programme, vous taperez RUN ; 
ne vous inquiétez pas si l'écran se brouille un instant, c'est 
que le ZX81 charge un tableau des chiffres de 0 à 9 qu'il vous 
présentera tour à tour, ainsi que les signes + et =. 

Après ce premier chargement, si vous interrompez le programme 
par BREAK ou si vous le réutilisez après l'avoir sauvegardé 
(lui et aussi son tableau, puisqu'au moment de la sauvegarde 
le ZX81 considère la mémoire entière), vous ne devez jamais 
taper RUN, mais GOTO 400, sinon vous n'auriez plus le contenu 
du tableau remis à zéro. 


L'utilisation du programme est simple. Une addition en gros 
chiffres est proposée sur l'écran. Le ZX81 demande 3 fois la 
réponse en bas, à gauche de l'écran I LI . 

Si elles sont toutes fausses, il affichera de lui-même le 
bon résultat, puis reposera une nouvelle addition au bout de 
quelques instants. 

Il fera de même si la bonne réponse est donnée en premier, 
deuxième ou troisième coup. 
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le REM RDDXTXON 

ae REM - 

50 DXM R«(13,8.8) 

80 DXM B*(8) 

70 LET O«0 
30 FRST 

100 FOR X«0 TO la 

105 IF I>S THEN UET 0=-18 

110 FOR Jx0 TO 6 

180 (.ET PxPEEK (76804-(8« (aa + X-fO 
J ) -«-J) 

130 FOR K*7 TO 0 STEP -1 
14-0 IF P<a**K THEN GOTO 170 
150 LET B$t8-K TO 8-K)x"g" 

160 LET PxP-a»*K 
170 NEXT K 

180 LET R*(I-4l,ü-fl> xB« 

100 LET B*x"" 

300 NEXT U 
ai0 CLS 
380 SLOU 

330 FOR Kxl TO 7 
34.0 PRINT R» (14-1,K) 

350 NEXT K 
360 FRST 
370 NEXT 1 

380 REM - 

390 REM LE JEU 
4-00 DXM 0(3,3) 

4-10 DXM 0(3) 

4-30 DXM E(3) 

430 SLOU 
440 CLS 

500 FOR Xxl TO 3 
610 LET CtDxXNT (RND*90>>1 
530 XF C(I)>9 THEN GOTO 560 
540 LET D(X,a>xC(X) 

550 GOTO 580 

560 LET D(1,1)«INT (Cfl)ylB) 

570 LET D(X,3)bC(X)-D(X,1)*10 

580 NEXT X 

800 FOR XbI TO 3 

810 FOR J-1 TO 3 

830 XF D(X,J)b0 and J=1 THEN GO 
TO 660 

630 FOR KbI TO 7 

840 PRXNT RT ( ( X-l) *7) 4-K-1,84-( J 
*8) ;R* (D <1, J) 4-1,K) 

650 NEXT K 

660 NEXT J 

670 NEXT I 

880 FOR XbO TO 31 

600 PRXNT RT 14,1; 'W 

695 NEXT I 

700 FOR XbII TO 13 

710 FOR KbI TO 7 

730 PRXNT RT ( ( 13-1) *3) 4-K-3 , ( X- 
11) »8;R*(X,K) 

730 NEXT K 
740 NEXT X 
800 LET TbC(1) 4-0(3) 

810 FOR XbI TO 3 
830 INPUT S 

830 XF SbT THEN GOTO 870 

840 NEXT I 

850 LET S$b"RCPONSE" 

860 GOTO 900 

«70 LET S*b" JUSTE" 

900 PRXNT RT 16,1;St 

910 XF T>100 THEN GOTO 980 

930 IF T>10 THEN GOTO 950 

930 LET E(3) »T 

940 GOTO 1100 

950 LET E(3)bXNT (TrlO) 

960 LET E(3)bT-E(3)*10 
970 GOTO 110O 
980 LET E(1)b1 

990 LET E(a)BlNT ( (T-IBO)710) 
1000 LET E(3 )bT-IOB-E(B)« 10 
1100 FOR iBl TO 3 

1105 XF E(X)bO RND 1=1 THEN GOTO 
1140 

1110 FOR KbI TO 7 

1130 PRXNT RT 144-K , ( X*8) ; R» (E ( X) 
+ 1,K) 

1130 NEXT K 

1140 NEXT I 

1200 FOR XbI TO SO 

1310 NEXT X 

1330 GOTO 400 
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LE PROGRAMME 


Lignes 50 à 220 

On dimensionne un tableau A$ pour y placer les chiffres en 
grand format. On passe en mode rapide à la ligne 90 pour 
gagner du temps sur la constitution de ce tableau. On va 
chercher, dans la mémoire morte du ZX81, la matrice de tous 
les chiffres gue l'on décode et gue l'on place dans le tableau 
(voir les explications dans le programme MACRO-LETTRES). On 
place chague point de chaque ligne du chiffre traité dans la 
variable tampon B$. Quand un chiffre est constitué, on 
l'affiche sur l'écran (pour faire patienter l'utilisateur) en 
passant du mode rapide au mode lent. 

Lignes 400 à 800 

On place, dans le tableau C(), deux nombres aléatoires 
compris entre 1 et 99 pour constituer l'addition. On décompose 
chaque nombre dans le tableau D() pour le cadrage sur l'écran 
des chiffres en grand format ; puis, on les affiche un à un, 
ainsi que les signes + et = et le trait du total. 

Lignes 810 à 900 

On demande trois fois la solution par l'intermédiaire de la 
boucle FOR/NEXT. Si une réponse est bonne, on passe directe¬ 
ment à la ligne 850 pour placer, dans la variable S$, le 
message "JUSTE". 

Si aucune réponse n'est juste, on place, dans S$, le 
message "REPONSE". La ligne 900 l'affiche. 

Lignes 910 à 1220 

Quelles que soient les réponses, bonnes ou mauvaises, le 
programme affiche la solution. 

Pour cela, on utilise la même méthode de découpage de 
nombres en chiffres, mais en les plaçant cette fois dans le 
tableau E(). Le découpage est un peu plus complexe puisque la 
solution peut comporter trois chiffres. 

Après une boucle d'attente à la ligne 1200, on revient en 400 
pour une nouvelle addition. 
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DATE 

NOM DU PROGRAMME ; . . 

f)Dl>lTlOK/ 

PAGE 

/ 

IDENTIFICATION des VARIABLES 

/ , / /origine/ / 

/ ÿ / TYPE (•) / zÉ/l/^XoNG./ OBSERVATIONS 

/ / /-^/r?/‘?/&/ / 

/ pj / /^/ /'v^/ / 

Ali] (| 5 

TRBLEAÜ 


B 




Tahieau conftnani' les chiffres 

■H 



1 




C^rund fermai-. 


l/fisiAeLE 


B 




l/anoble "tampori poo*~ 1 eJahoraRon 

■H 



fl 




des C^tos carac-tëines 


TfiBLERU 


B 




Conhienh les nombres aleaf-oires 



de l'oddîh'on. 

Conh't.n^' le découpage, des chiffres 
Q pWcher. 

Conh'tn)- le decoL«pq<|e des chiffres 
de (q sduh’qn. 


Soucie foR / S/ffkr 


Boucle For / A/Cxr 



Soude 

For / (uexT 

Mafrice 

du coraclece. â imprimer- 

Aiguille la 

matrice de. caractères 

des chiffres aux Sit^nes + et = 

Soluhon 

proposée 

Soluhon 

Juste ou fhusse 

Total de 

l'addihon . 



(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite^^ 
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